Aquí tienes un ejemplo sencillo:
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Host := 'www.borland.com';
ClientSocket1.Port := 80;
ClientSocket1.Open;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Close;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ShowMessage('Conectado');
end;
Espero que te sirva.
Ernesto D'Spirito
http://www.latiumsoftware.com/es/index.php