So, Probelm gelöst....
1. Globale Variable deklarieren (CanSend:Boolean)
2. Wenn Daten gesendet werden sollte das ganze so aussehen:
Delphi-Quellcode:
try
Client.DataToSend:='TEXT'+#10;
except
Cansend:=false;
while Cansend=false do begin
Client.DoEvents;
end;
if Cansend=true then begin
Client.DataToSend:='TEXT'+#10;
end;
end;
3. Im OnReadytoSend Ereignis muss die Variable CanSend auf true gesetzt werden.
Falls trotzdem jemand einen Verbesserungsvorschlag hat immer her damit
. Auf alle Fälle funktioniert es bei mir so.
Delphi is ......... DELPHI!!