ClientSocket Problem

[ddcool]

Hi Leute ich habe da mal ne Frage.
Ich wollte ein Proggy schreiben, was eine varierbare Anzahl von Connections zu einem Server aufbaut, und zwar gleichzeitig.
Nun habe ich alles soweit fertig nur mit dem erstellen neuer TClientSocket Komponenten wärend des betriebes hakert es:

Delphi-Quellcode:

var
  show: Tshow;
  newclient: TClientSocket;
  kompo: TClientSocket;
  namec: String;

implementation

{$R *.dfm}

procedure connect;
var
  null: Integer;
begin
  for null := 0 to StrToInt(show.anzahl.Text) do
  begin
  namec := 'clientkompo'+IntToStr(null);
  kompo := newclient.Create(kompo);
  kompo.Name := namec;
  kompo.Port := StrToInt(show.portt.Text);
  kompo.Host := show.adr.Text;
  kompo.Open;
  end;
end;

was ist daran falsch????
BITTE GENAUE LÖSUNGSBESCHREIBUNG UND WENN ES GEHT EINEN ÜBERARBEITETEN QUELLTEXT

THX Basti