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