Запись полученных данных Delphi7

[-Jack-]

Всем доброго времени суток. Решил разобраться с сокетами и появился такой вопрос. Каким образом реализовать запись данных полученных и отправленных клиенту.

procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);
var
I: Integer;
begin
I:=Random(200);
Socket.SendText(IntToStr(I));
memo1.Lines.add(I)
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.add(Socket.ReceiveText());
end;

Клиент подключается к серверу, отправляет число, принимает число. Хотелось бы, чтобы после обмена числами, полученное и отправленное число записывалось в 1 строчку. Возможно ли это реализовать ?

[Stilet]

with memo1.Lines do strings[count-1]:=strings[count-1]+Socket.ReceiveText();

Или так:

procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);
var
I: Integer;
begin
I:=Random(200);
Socket.SendText(IntToStr(I));
s:=I;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.add(s+' '+Socket.ReceiveText());
end;

Где s - глобальная строковая переменка.

[-Jack-]

О, спасибо большое