Ich würd eventuell die Zeile
ComPort1.ReadStr(sCom, 1);
durch sowas hier ersetzen:
Delphi-Quellcode:
if ComPort1.ReadStr(sCom, 1) = 1 then
begin
...
end;
Sollte eigentlich auch so klappen, aber wer weiß das schon genau...
Die Wichtigkeit eines Postings im Forum ist reziprok zur Anzahl der enthaltenenen, kumulierten Ausrufungszeichen!!!