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".
