Nechapu. Mužeš trochu vic info?
Jako to volat v LazSerial1RxData?

Jsem zkusil tam dat timer a přes něj odesilat co vteřinu žadost a toto je ok.

procedure TForm1.LazSerial1RxData(Sender: TObject);
var
    sl: TStringList;
begin
data := '';
sleep(50);
data := lazserial1.ReadData;
sl := TStringList.Create;
sl.Delimiter := ',';
sl.DelimitedText := data;
if Trim (sl[0]) = 'ST' then
                    begin
                       stavvazeni := Trim (sl[0]);
                       vaha := Trim (sl[2]);
                    end;
sl.Free;
end;