Socket-Text an mehrere Rechner nacheinander im Netzwerk send

[Gruber_Hans_12345]

wenn schon dann so

Delphi-Quellcode:

procedure TForm1.AllCommandTimerTimer(Sender: TObject);
var tempip:String;
begin
  tempip := ListIp.Items[ListIp.Itemindex];
  try
    Memo1.Lines.Add('Socket zu ' + tempip + ' erfolgreich geschlossen');
    Client.Close;
  except
    Memo1.Lines.Add('Socket zu ' + tempip + ' konnte nicht geschlossen werden');
  end;
  Client.Host := tempip;
  try
    Memo1.Lines.Add('Socket zu ' + tempip + ' erfolgreich geöffnet');
    Client.Open;
  except
    Memo1.Lines.Add('Socket zu ' + tempip + ' nicht geöffnet');
  end;
  try
    Memo1.Lines.Add('IP ' + tempip + ' erfolgreich');
    Client.Socket.SendText(AllCommand);
  except
    Memo1.Lines.Add('IP ' + tempip + ' nichterfolgreich');
  end;
  ListIp.ItemIndex := ListIp.Itemindex + 1;
  if (ListIp.ItemIndex >= ListIp.Count) then
    AllCommandTimer.Enabled := False;
end;