Leider versteh ich den Code nicht...
Beispiel:
Delphi-Quellcode:
CSCom.Active:=false;
for i := 0 to 1000 do
begin
sleep(1);
application.ProcessMessages;
if CSCom.Active=false then
begin
break;
end;
end;
Das macht meines erachtens keinen Sinn: Die Schleife wird genau einmal durchlaufen, oder?
Du könntest einfach noch beschreiben wie du dir den Ablauf deines Codes vorgestellt hast: Kommentare im Code wären dazu gut.