TClientSocket Windows-Socket-Fehler 10038?

[gandime]

So ich hab die Komentare im Code hinzugefügt
weiterhin habe ich noch 1 2 sachen versucht und zwar habe ich den Reconnect Code Etwas verändert:

Delphi-Quellcode:

procedure TForm1.Reconnect;
var
  i:integer;
begin
  if BReconnect=false then
  begin
    BReconnect:=true;
//    Reset;
    CSCom.Active:=false;
    for I := 0 to 1000 do
    begin
      sleep(1);
      application.ProcessMessages;
    end;
    BReconnect:=false;    
    CSCom.Active:=true;
  end;
end;

dadurch wird bei CSCom.Active:=true kein Fehler ausgeworfen aber der Client connectet nicht neu!

Der auslöser des Fehlers muss also in Reset sein!
Vlt durch das entbinden und wieder zuweisens von CSCom?

Edit:
habe ein verkeinfachtes Project im anhang, wo der Fehler auch entsteht! vlt hilft es ja