Brak komunikacji tekstowej TCPClient-TCPServer

Mam pytanie dlaczego nie moge zestawic obustronnej komunikacji tekstowej ?
Lacze sie z serverem wysylam do servera komunikat i wyswietlam go w memo do tej pory dziala ale teraz chce wysalac cos z servera do clienta i juz nie idzie ?

Kod klienta:

procedure TForm1.Client1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
memo1.Lines.Add(client1.Socket.ReadLn);//probuje zczytac to co wysyla server
end;

Kod servera:

procedure TForm1.Server1Execute(AContext: TIdContext);
var
aa : String;
begin
aa := AContext.Connection.Socket.ReadLn;//zczytuje tekst klienta
memo1.Lines.Add(aa)// laduje do memo
AContext.Connection.Socket.WriteLn('cos');\\ czy napewno dobrze ??????
end;