COM-Port abfrage abwarten mit der Kompo AsyncPro

[Phlight]

Hallo zusammen :hi:
habe mir zum Ansprechen einer COM1-Schnittstelle die Kompo von Async Pro besorgt.
Mein Problem ist, dass ich erst einen String sende und dann eine Quittierung abfragen muss, von dem Gerät das am Anschluss hängt, bevor ich den nächsten String senden kann.

Ich muss bis zu 6 Strings mit einem KLICK senden und nach jedem String die Ausgabe vom Getät abwarten bevor der nächste String kommt.
Wie realisiere ich das abwarten und abfragen zwischen den Strings?

Benutze Delphi 6 Pro.

Den ComPort initialisiere und öffne ich schon beim Programmaufruf
Soweit bin ich schon gekommen.

Delphi-Quellcode:

procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
  i:word;
begin
quitstring := '';
for i:=1 to count do begin
  quitstring := quitstring + ApdComPort1.GetChar;
  end;
quitt:=true;
Edit3.Text:=quitstring;
end;

//---------------------------------------------------------------------
procedure TForm1.Button4Click(Sender: TObject);
begin
  ApdComPort1.Output := '@01';
// abfrage quittung;
  ApdComPort1.Output := '@0B65529,0';
// abfrage quittung;
  ApdComPort1.Output := '@0d1000';
// abfrage quittung;
  ApdComPort1.Output := '@0R1';
// abfrage quittung;
  ApdComPort1.Output := '@0B65529,0';
// abfrage quittung;
  ApdComPort1.Output := '@0R1';
// abfrage quittung;
end;

hatte diese Idee.

Delphi-Quellcode:

//----------------------------------------------------------------------
procedure TForm1.quittung;
begin
 while quitt = false do begin 
   Button1.Enabled:=false;
   Button2.Enabled:=false;
   end;
 quitt:=false;
 Button1.Enabled:=true;
 Button2.Enabled:=true;
end;

Funzt aber net :wall: !§$%#%"
quitt wird wärend der Schleife von ApdComPort1TriggerAvail nicht aktualisiert.

MfG Phlight