La novata inutil sigue (problema con el cliente)

[SindyL34]

bueno este s el codigo del cliente en el evento onconnect

procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
IdTCPClient1.WriteLn(edUserName.Text);
end;

el cliente no tiene tantos eventos segun lo que vi el server tiene un evento llamado on execute que tiene este codigo

{ Get the text sent from the client }
Msg := AThread.Connection.ReadLn;

intente llamar a un evento semejante al que tiene el server pero no se como usarlos, o mas bien al intentarlo no do ningun resultado, los eventos son
on status
onwork
onworkbegin
onworkend

intente solo poniendo que recibiera pero simplemente no hace nada, si cambio el tiempo de relog a muy alto pues no recibe nada y siempre se bloquea cuando se ejecuta

[SindyL34]

hola ya por mas que le busque a lo mas que pude llegar era a ke se trabara por pequeños lapsos de tiempo, esto cambiando el lapso del timer a 3000 (ni mas ni menos por que no funcionaba por que no lo se XD) y cambiando

if IdTcpClient1.Connected then
begin
///codigo
end;

despues buscando mas encontre el componente antifreze que soluciono todo a cualquiera que le falle el chat solo agregue este componente al servidor y al cliente y no tendra problemas


gracoas