Delphi - [Delphi 7 enterprise] Inviare il testo tramite un socket di due memo e farle ricevere a memo separati del client

Salve a tutti, come posso far in modo che le stringhe di due memo di un server vengano inviati in due memo separati del client utilizzando solo un socket?
Grazie in anticipo

da quando tempo l'italiano e' diventato un optional?...

cmq sull' evento on read del client metti:

var
testo:string;
begin
testo:=socket.receivetext;
if testo='da inviare al memo1' then begin
memo1.lines.add('testo da inviare al memo1');
end;
if testo='da inviare al memo2' then begin
memo2.lines.add('testo da inviare al memo2');
end;
end;

Semplice ma funzionante.