Ошибка в коде передачи файлов

[OneNight]

Здравствуйте!
Написал вот такой код для передачи файлов клиент-сервер. Искажает содержимое файла, например в текстовом ставит какие-то пробелы или вообще меняет кодировку. Не могу найти ошибку в коде.
Сервер:

procedure TForm2.Button1Click(Sender: TObject);
var
  size: integer;
  P: ^byte;
begin
  MS:=TMemoryStream.Create;
  MS.LoadFromFile(Edit1.Text);
  ServerSocket1.Socket.Connections[0].SendText('file' + '#' + Edit1.Text + '#' + IntToStr(MS.Size) + '#');
  MS.Position:=0;
  P:=MS.Memory;
  Size:=ServerSocket1.Socket.Connections[0].SendBuf(P^, MS.Size);
end;

Клиент:

private
    { Private declarations }
    Name: string;
    Size: integer;
    Receive: boolean;
    MS: TMemoryStream;
 
procedure TForm3.Writing(Text: string);
begin
  if MS.Size < Size then
  MS.Write(Text[1], length(Text));
  if MS.Size = Size then
  begin
    Receive:=false;
    MS.Position:=0;
    MS.SaveToFile(Name);
    ClientSocket1.Socket.SendText('end');
    MS.Free;
  end;
end;
 
procedure TForm3.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
  Rtext: string; 
begin
   Rtext := Socket.ReceiveText;
   if Receive then 
   Writing(RText) 
   else 
   if Copy(Rtext, 0, Pos('#', Rtext) -1) = 'file' then 
   begin
     MS := TMemoryStream.Create; 
     Delete(Rtext, 1, Pos('#', Rtext)); 
     Name := Copy(Rtext, 0, Pos('#', Rtext) -1); // Определяем имя файла
     Delete(Rtext, 1, Pos('#', Rtext)); 
     Size := StrToInt(Copy(Rtext, 0, Pos('#', Rtext) -1)); // Определяем размер файла
     Delete(Rtext, 1, Pos('#', Rtext)); 
     Receive := true; 
     Writing(RText); 
 end;
end;