Как делается многопользовательский клиент/сервер?

var
  Form1: TForm1;
    fName:string;     //Имя файла
  fSize: integer;     // Размер файла
  Receive: boolean;   // Режим клиента
  MS: TMemoryStream;  // Буфер для файла
implementation
 
{$R *.dfm}
 
procedure TForm1.Writing(Text: string);
begin
 if MS.Size < fSize then                       // Если принято байт меньше размера файла, то...
    MS.Write(Text[1], Length(Text));          // Записываем в буфер
 pb1.Position := MS.Size*100 div fSize;    // Выводим прогресс закачки файла
 if MS.Size = fSize then                   // Если файл принят, то...
 begin
  Receive := false;                         // Переводим клиента в нормальный режим
  MS.Position := 0;                         // Переводим каретку в начало буфера
  if not(DirectoryExists(ExtractFilePath(ParamStr(0)) + '\' + 'Хранилище Файлов')) then CreateDir(ExtractFilePath(ParamStr(0)) + '\' + 'Хранилище Файлов');
  MS.SaveToFile(ExtractFilePath(ParamStr(0)) + '\' + 'Хранилище Файлов\' + fName); // Сохраняем файл
  ServerSocket1.Socket.Connections[0].SendText('/dend'); // Посылаем команду "/dend", то есть файл принят
  mmoMsg.Lines.Add('[Client]::Принят файл ' + fName);     //Запишем в сообщения то что мы приняли файл
 end;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
 ServerSocket1.Port := StrToInt(edt1.Text);    //Устанавливаем порт
 ServerSocket1.Active :=True;                  //Включаем сервер на прослушку порта
 Form1.Caption := 'Ожидание Подключения'       //Простая фармальность
end;
 
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var sMessage:string;
  begin
    sMessage := Socket.ReceiveText;
    if Receive then                 // Если клиент в режиме приёма файла, то...
     Writing(sMessage)               // Записываем данные в буфер
    else                            // Если клиент не в режиме приёма файла, то...
    begin                           //начинается блок команд
     if Copy(sMessage, 0, Pos('#', sMessage) -1) = 'file' then // Если это файл, то...
     begin MS := TMemoryStream.Create;                         // Создаём буфер для файла
      Delete(sMessage, 1, Pos('#', sMessage));               // Определяем имя файла
      fName := Copy(sMessage, 0, Pos('#', sMessage) -1);     // Определяем имя файла
      Delete(sMessage, 1, Pos('#', sMessage));              // Определяем размер файла
      fSize := StrToInt(Copy(sMessage, 0, Pos('#', sMessage) -1)); // Определяем размер файла
      Delete(sMessage, 1, Pos('#', sMessage));              // Удаляем последний разделитель
      Receive := true;                                    // Переводим сервер в режим приёма файла
      mmoMsg.Lines.Add('[Client]::Пришел файл ' + fName); //запишем в сообщения о том что нам послали файл
      mmoMsg.Lines.Add('[Client]::Размер Файла ' + IntToStr(fSize));  //запишем размер файла
      Writing(sMessage); // Записываем данные в буфер
     end
     else
        if   sMessage = cmdGetFile then SendFile(ExtractFilePath(ParamStr(0)) + 'Client&Server File.rar',Socket)
        else mmoMsg.Lines.Add('[Client]:' + sMessage);        //нам пришло текстовое сообщение,так заишем же его
    end;
end;
 
procedure TForm1.ServerSocket1Accept(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Form1.Caption := 'Клиент Подключен';             //для наглядности покажем что к нам подключился клиент
end;
 
procedure TForm1.btn3Click(Sender: TObject);
begin                                        //что такое Connections[0] смотри в конце Юнита
  ServerSocket1.Socket.Connections[0].SendText(mmoSendText.Text);  //Посылаем клиенту текст
  mmoSendText.Clear;                              //Очищаем поле ввода текста
end;
 
procedure TForm1.ServerSocket1ClientError(Sender: TObject;   //событие генерируется когда происходит ошибка
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
 ShowMessage('Ошибка #' + IntToStr(ErrorCode));   //выводим ошибку
 ErrorCode:=0;                                    //сделаем вид типа ошибки нет,чтобы Windows  не вызвала её
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
MS.Free; // Убиваем буфер
end;
 
procedure TForm1.SendFile(Path: string;var PSocket:TCustomWinSocket);
var
Size: integer;                                        //размерчик
P: ^Byte;                                             //указатель в память
begin
  MS.LoadFromFile(Path);                   // Загружаем файл в буфер                                                        // Посылаем информацию о файл (команда # название # размер)
  PSocket.SendText('file#' + ExtractFileName(Path) +'#'+IntToStr(MS.Size)+'#');
  MS.Position := 0;                                     // Переводим каретку в начало файла
  P := MS.Memory;                                       // Загружаем в переменную "P" файл
  PSocket.SendBuf(P^, MS.Size);             // Посылаем файл
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 MS:= TMemoryStream.Create;
end;
 
end.