No nevzpadlo.
procedure TForm1.Button1Click(Sender: TObject);
beginLazSerial1.WriteData(#$52#$0d#$0a);
while (stavvazeni <> 'ST') do
begin
Application.ProcessMessages;
sleep(100);
LazSerial1.WriteData(#$52#$0d#$0a);
end;sleep(500);
Memo1.Lines.AddText('stav vazeni ' + stavvazeni);
end;