[unko!]

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" :

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.