Delphi-PRAXiS - Delphi Timing-Problem mit TComPort

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