Timing-Problem mit TComPort

[MarioR]

Hallo,

ich lese mit TComPort einen Laser aus.
Dabei habe ich aber ein Timing-Problem, denn
der Laser braucht nach jedem empfangenem Kommando
einige Zeit zum reagieren.
Zur Zeit löse ich daß etwas "uncool".

Delphi-Quellcode:

// einschalten
ComPort.WriteStr(#65#13#65#13);
sleep(1000);
// Messung auslösen
ComPort.WriteStr(#71#13);
sleep(1000);
// Messwert holen
ComPort.ReadStr(ComPortBuffer,255);
Memo1.Lines.Add(ComPortBuffer);
// ausschalten
ComPort.WriteStr(#98#13);

Geht das auch noch anders (besser) ?

Gruß Mario