CLient Socket Connect

[MadMax]

Ich hab folgenden Code geschrieben. Mein Problem ist, da die socket Namen nicht bekannt sind kann ich nicht senden oder die Verbindung trennen.
Wie könnte ich das lösen?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, UNetTools,tlhelp32, ScktComp, winsock, verbinnden;

type
  TForm1 = class(TForm)
    Panel2: TPanel;
    ListBox1: TListBox;
    Panel3: TPanel;
    Button1: TButton;
    Button3: TButton;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ButtonClick(Sender: TObject);
  private

  public
   Con: TConnect;
   ClientSocket: TClientSocket;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  LoadNetList(ListBox1,NIL);
  Con := TConnect.Create(Self);
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if Sender = Button1 then begin
   Con.Socket.SendText('D:\test\Wms.exe.lnk');
    end; if Sender = Button4 then begin
     Con.Socket.SendText('D:\test\iltis_start.exe.lnk');
      Button5.Enabled := true;
      end; if Sender = Button5 then begin
       Con.Socket.SendText('IltisWMS');
        end; if Sender = Button3 then begin
         Con.Connect;
          end; if Sender = Button2 then begin
           Con.Disconnect;
       end;
    end;
end.

Delphi-Quellcode:

unit verbinnden;

interface
 uses ScktComp;
type TConnect = class(TClientSocket)
  procedure Connect();
  procedure Disconnect();
end;

implementation

uses Unit1;

procedure TConnect.Connect;
begin
  Port := 2323;
  Host :=  Form1.ListBox1.Items[Form1.ListBox1.ItemIndex];
  active := true;
end;

procedure TConnect.Disconnect;
begin
  Host :=  Form1.ListBox1.Items[Form1.ListBox1.ItemIndex];
  active := false;
end;

end.