Socket-Text an mehrere Rechner nacheinander im Netzwerk send

[Maikiboy]

So, ich habe das ganze jetzt noch etwas umgeschrieben und habe den komischen fehler das er nicht disconnectne mag und somit das Event OnDisconnect nicht ausgelösst wird.

Einer ne idee?

Delphi-Quellcode:

procedure TForm1.AllCommandTimerTimer(Sender: TObject);
var tempip:String;
var error:Byte;
begin
  error:=0;
  tempip := ListIp.Items[ListIp.Itemindex];
  GlobalCommand := AllCommand;
  GlobalIP := tempip;
  Client.Close;
  ListIp.ItemIndex := ListIp.Itemindex + 1;
  if (ListIp.ItemIndex >= 20) then
        AllCommandTimer.Enabled := False;
end;
procedure TForm1.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  if (AllCommandTimer.Enabled = true) then
      begin
          Memo1.Lines.Add('Connect erfolgreich --> Sende ' + GlobalCommand);
          Client.Socket.SendText(GlobalCommand);

      end;
end;

procedure TForm1.ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  if (AllCommandTimer.Enabled = true) then
      begin
          Memo1.Lines.Add('Disconnect erfolgreich --> Verbinde auf ' + GlobalIP);
          Client.Host := GlobalIP;
          Client.Open;
      end;
end;

gruss Maik