hacer un chat en builder

[MR. M.]

buenas tardes comunidad programadora, tengo una duda que espero me puedan resolver, es que tengo un proyecto de redes en builder, donde se me pido hacer un chat, y ya checamos la ayuda de builder, y lo tenemos igual pero no funciona del todo, ojala pudiesen ayudarme..

void __fastcall TForm1::IniciarSesion1Click(TObject *Sender)
{
if (ClientSocket->Active)
{
ClientSocket->Active = false;
}
// if (InputQuery("Conectar Computadora A", "Direccion IP:", Server))
if (InputQuery("Computer to connect to", "Address Name:", Server))
{
if (Server.Length() > 0)
{
ClientSocket->Host = Server;
ClientSocket->Active = true;
IniciarSesion1->Checked = 0;
}
} // CODIGO PARA INICIAR EL CHATEO, AGREGUE LO NECESARIO
}
//---------------------------------------------------------------------------
P.S. quiero hacerlo parecido al de MSN, ojalas me ayuden

[yalmar]

Hola,

Buscate un chat en delphi y luego lo traduces.
Ya use algunos componentes para msn, buscalos.

Salu2.