Ohne with gehts gar nicht. Sorry end war noch drin-->habs lediglich nicht mitkopiert...
Denke das Problem liegt an der Prozedur:
Delphi-Quellcode:
procedure TCOM.SetRTS(const Value: boolean);
begin
if (Value = True) then
EscapeCommFunction(FHandle, WinTypes.SETRTS)
else
EscapeCommFunction(FHandle, WinTypes.CLRRTS);
end;
Um diese auszuführen bzw. RTS zu schalten sollte ich sie doch lediglich so:
SetRTS(true);
ausführen können oder nicht?