Auf AT OK warten?

[Schucki]

Ja ok das könnte ich ja so machen...

Delphi-Quellcode:

procedure TForm1.ComPort1ReceiveCallBack( Data: string ); 
begin 
  if not bolAnsOk then bolAnsOk:=Data='OK';
  if Memo1.Lines.Count > 500 then 
    Memo1.Clear; 
  Memo1.Lines.Add( Data ); 
  Image1.Visible := not Image1.Visible; 
end;

Bleibt nur die Frage, wie man beim Befehl absenden dann "wartet".