probleme mit threads

[endeffects]

also ich hab es nach deinem beispiel nun so geändert:

Code:

uses
  Classes, SysUtils, IdComponent, IdTCPConnection,
  IdTCPClient;

...

procedure TMyThreads.DoSomething;
var
  Loop: Integer;
  IdTCPClient: TIdTCPClient;
begin
  IdTCPClient := TIdTCPClient.Create(nil);
  Inc(FCount);
  with IdTCPClient do
    begin
      Host := MainForm.edtHost.Text;
      Port := StrToint(MainForm.edtPort.Text);
      try
        Connect; // add a timeout here if you wish, eg: Connect(3000) = timeout after 3 seconds.
        Write('GET /'+#13#10);
      finally
      FreeAndNil(IdTCPClient);
      end;
      Synchronize(UpdateLVCaption);
    end;
end;

ich hoffe ich hab nichts falsch gemacht, aber es scheint zu funktionieren

danke für deine hilfe