necesito ayuda con este codigo

[[kurono]]

disculpa amigo mamu pero la forma que me dices que ponga el codigo me da error

Código Delphi [-]
var
texto:string;
begin
servidor.Open;
begin
if cliente.OnConnect then
cliente.Host:='210.59.25.15';
 cliente.Address:='64.32.105.190';
 cliente.Open;
 begin
 if cliente.OnConnect then
cliente.Socket.SendText('hola');
begin
texto:=servidor.Socket.ReceiveText;
memo1.Lines.Add(texto);
end;
end;
end;
end;
end.