прередача по сокетам

[geronime]

Прошу прощения если этот вопрос уже задовали!!
Помогите новечку!!Я ничего не соображаю в делфи!Вот код сервера

 procedure TForm1.AddLinef(const f: String);
  begin
    Memo2.Lines.Add(f);
      end;
 procedure TForm1.AddLined(const d: String);
  begin
    Memo1.Lines.Add(d);
      end;
 procedure TForm1.sbtClearClick(Sender: TObject);
begin
  Memo1.Clear;
  end;
procedure TForm1.sbtClearClick1(Sender: TObject);
begin
  Memo2.Clear;
  end;
procedure TForm1.sbtStartstopClick(Sender: TObject);
begin
   if sbtStartStop.Tag = 0 then
    begin
     ServerSocket1.Port:=sedPort.Value;
      ServerSocket1.Active:=true;
      sbtStartStop.Caption:='Остановить сервер';
      sbtStartStop.Tag:=1;
      AddLinef('['+DateTimeToStr(Now) + ']: Сервер успешно запущен на ' + IntToStr(sedPort.Value) + ' порту');
    end
  else
    begin
      ServerSocket1.Active:=false;
      sbtStartStop.Caption:='Запустить сервер';
      sbtStartStop.Tag:=0;
      AddLinef('['+DateTimeToStr(Now) + ']: Сервер успешно остановлен');
    end
end;
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
     AddLinef('['+DateTimeToStr(Now) + ']: Присоединился клиент ' + Socket.RemoteAddress + ' (' + Socket.RemoteHost + ') на порт ' + IntToStr(Socket.RemotePort));
end;
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
      AddLinef('['+DateTimeToStr(Now) + ']: Клиент ' + Socket.RemoteAddress + ' (' + Socket.RemoteHost + ') отсоединился от порта ' + IntToStr(Socket.RemotePort));
end;
procedure TForm1.ServerSocket1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
      AddLinef('Клиент ошибка. Code = '+IntToStr(ErrorCode));
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
      AddLinef('['+DateTimeToStr(Now) + ']Клиет прислал сообщение');
      AddLined('> '+Socket.ReceiveText);

end;

procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);
begin
      AddLinef('Теперь можно написать в сокет');
end;

procedure TForm1.ServerSocket1GetSocket(Sender: TObject; Socket: Integer;
  var ClientSocket: TServerClientWinSocket);
begin
 AddLinef('');
end;
procedure TForm1.ServerSocket1GetThread(Sender: TObject;
  ClientSocket: TServerClientWinSocket;
  var SocketThread: TServerClientThread);
begin
AddLinef('Get Thread');
end;
procedure TForm1.ServerSocket1ThreadEnd(Sender: TObject;
  Thread: TServerClientThread);
begin
 AddLinef('Thread end');
end;
procedure TForm1.ServerSocket1ThreadStart(Sender: TObject;
  Thread: TServerClientThread);
begin
AddLinef('Thread start');
end;
procedure TForm1.Button3Click(Sender: TObject);
var i: Integer;
    begin
     If ServerSocket1.Active=True then
         ServerSocket1.Socket.Connections[0].SendText(':'+Edit1.Text);
       AddLined(':'+Edit1.Text);
     end;
end.

Мне необходимо чтобы присланные данные , записанные в Memo1, сохранялись в буфер, а потом последний элемент буфера сохронялся в отдельный файл или еще лучше передовался к php клиенту.Заранее благодарен всем кто поможет!