Foros Club Delphi - error en chat :S

cual es el codigo de conexion? la IP con la ke me kiero conectar o el puerto...
mira, aka te dejo el codigo de el "chat" :p:
Código:
unit Unit1;

 

 interface

 

 uses

   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

   Dialogs, ScktComp, StdCtrls;

 

 type

   TForm1 = class(TForm)

         Edit1: TEdit;

         Memo1: TMemo;

         Button1: TButton;

         Button2: TButton;

         ClientSocket1: TClientSocket;

         ServerSocket1: TServerSocket;

         procedure ClientSocket1Connect(Sender: TObject;

           Socket: TCustomWinSocket);

         procedure ClientSocket1Disconnect(Sender: TObject;

           Socket: TCustomWinSocket);

         procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;

           ErrorEvent: TErrorEvent; var ErrorCode: Integer);

         procedure ServerSocket1ClientRead(Sender: TObject;

           Socket: TCustomWinSocket);

         procedure Button1Click(Sender: TObject);

         procedure Button2Click(Sender: TObject);

   private

         { Private declarations }

   public

         { Public declarations }

   end;

 

 var

   Form1: TForm1;

 

 implementation

 

 {$R *.dfm}

 

 procedure TForm1.ClientSocket1Connect(Sender: TObject;

   Socket: TCustomWinSocket);

 begin

 showmessage('Conectado, puedes enviar mensajes');

 end;

 

 procedure TForm1.ClientSocket1Disconnect(Sender: TObject;

   Socket: TCustomWinSocket);

 begin

 showmessage('Desconectado, no puedes enviar mensajes');

 end;

 

 procedure TForm1.ClientSocket1Error(Sender: TObject;

   Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;

   var ErrorCode: Integer);

 begin

 showmessage('Error, no puedes enviar mensajes');

 end;

 

 procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

   Socket: TCustomWinSocket);

 begin

 memo1.Lines.Add('Unko dice: '+ Socket.ReceiveText);

 end;

 

 procedure TForm1.Button1Click(Sender: TObject);

 begin

 ClientSocket1.Active:=true;

 end;

 

 procedure TForm1.Button2Click(Sender: TObject);

 begin

 ClientSocket1.Socket.SendText(edit1.Text);

 memo1.Lines.Add('Yo digo: '+edit1.Text);

 end;

 

 end.