[Delphi] polacznie gniazdowe

Witam
robie prosta aplikacje do przesylania wiadomosci przez gniazda i mam pewien problem
otoz jak dodac na poczatku wiadomosci tekst z dwoch pol edit i jednego by byl przekazywany w takim formacie dalszy tekst z pola memo
a nastepnie dekodowany po stronie klienta do dwoch pol edit i 1 memo
tak samo jak zostal zakodowany...

Widze ze jest Ci to bardzo potrzebne wiec daje rozwiazanie:

function Koduj(E1,E2,M: String): String;
begin
Result:='&lt'+E1+'&gt&lt'+E2+'&gt'+M;
end;

procedure Dekoduj(var E1, E2, M: String; Kod: String);
begin
E1:=Kod;
Delete(E1,1,1);
Delete(E1,Pos('&gt',E1),Length(E1));
E2:=Kod;
Delete(E2,1,1);
Delete(E2,1,Pos('&lt',E2));
Delete(E2,Pos('&gt',E2),Length(E2));
M:=Kod;
Delete(M,1,1);
Delete(M,1,Pos('&lt',M));
Delete(M,1,Pos('&gt',M));
end;

przyklad kodowania:
Memo2.Lines.Text:=Koduj(Edit1.Text,Edit2.Text,Memo1.Lines.Text);

przyklad dekodowania:
var
E1, E2, M: String;
begin
Dekoduj(E1,E2,M,Memo2.Lines.Text);
Edit1.Text:=E1;
Edit2.Text:=E2;
Memo1.Lines.Text:=M;
--W poszukiwaniu rozwiązania problemu, najbardziej pomocna jest znajomość odpowiedzi.