Client-Server. Передача файлов через сокеты

procedure TServak.Button1Click(Sender: TObject);
var
Size: integer;
P: ^Byte;
SR: TSearchRec;
stroka: string;
begin
  MS := TMemoryStream.Create; // Создаём буфер для файла
  MS.LoadFromFile(str);
  // Посылаем информацию о файле (команда # название # размер)
  ServerSocket1.Socket.Connections[0].SendText('file#'+str+'#'+IntToStr(MS.Size)+'#');
  MS.Position := 0; // Переводим каретку в начало файла
  P := MS.Memory; // Загружаем в переменную "P" файл
  Size := ServerSocket1.Socket.Connections[0].SendBuf(P^, MS.Size); // Посылаем файл
  // Выводим прогресс
  ProgressBar1.Position := Size*100 div MS.Size;
  StatusBar1.SimpleText := 'Отправлено '+IntToStr(Size)+' из '+IntToStr(MS.Size)+' байт';
end;

procedure TKlient.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)); // Удаляем последний разделитель
      Label1.Caption := 'Размер файла: '+IntToStr(Size)+' байт'; // Выводим размер файла
      Label2.Caption := 'Имя файла: '+Name; // Выводим имя файла
      Receive := true; // Переводим сервер в режим приёма файла
      Writing(RText); // Записываем данные в буфер
      label3.Caption := RText;
      if Socket.ReceiveText = 'end' then // Если клиент принял файл, то...
        begin
          StatusBar1.SimpleText := 'Клиент принял файл';
        end;
    end;
end;
 
procedure TKlient.Writing(Text: string);
begin
  if MS.Size < Size then // Если принято байт меньше размера файла, то...
    MS.Write(Text[1], Length(Text)); // Записываем в буфер
// Выводим прогресс закачки файла
    ProgressBar1.Position := MS.Size*100 div Size;
    StatusBar1.SimpleText := 'Принято '+IntToStr(MS.Size)+' из '+IntToStr(Size);
    if MS.Size = Size then // Если файл принят, то...
    begin
      Receive := false; // Переводим клиента в нормальный режим
      MS.Position := 0; // Переводим каретку в начало буфера
      MS.SaveToFile(Name); // Сохраняем файл
      ClientSocket1.Socket.SendText('sendSTR'); // Посылаем команду "end", то есть файл принят
      MS.Free; // Убиваем буфер
      StatusBar1.SimpleText := 'Файл принят';
    end;
  end;
end.