Strings über ComPort senden

[drschubi]

Guten Morgen,

ich habe ein kleines Verständnisproblem.

Ich sende Strings über die Comschnittstelle an einen Barcodescanner.
Geb ich die Strings von Hand in ein Eiditfeld ein und sende sie nacheinander gibt es kein Problem. Sobald ich die Strings mittels Button nacheinander senden will, wird nur der erste String quittiert, mit Pause dazwischen auch noch der zweite, der dritte wird dann aber nicht mehr gesendet.

Delphi-Quellcode:

procedure TForm1.btnSendStringClick(Sender: TObject);
var a,b,c,SendStr: string;
begin
a:= '$+$*' + #$0D#$0A; //Restore Default
b:= '$+CP0$-' + #$0D#$0A; // Set RS232
c:= '$+AC110155$-' + #$0D#$0A; //Set Codetype

  SendStr := a; //Restore Default
  SerialPort.SendString(SendStr);
  sleep(10000);
  Sendstr := b; // Set RS232
  SerialPort.SendString(SendStr);
  sleep(10000);
   Sendstr := c; //Set Codetype
  SerialPort.SendString(SendStr);
end;

Muss ich noch etwas beachten?

Vielen Dank Schubi