отправка файла serversocket-у (дэлфи)

[ddc]

клиент отправляет серверу файл-все работает.
сервер получяет файл так:

  if FileReceiving then begin
   fstream.Write(buf[1], length(buf));
   if fstream.Size=DataSize then begin
    FileReceiving:=false;
    Fstream.Free;
   end
   else begin
     fileprogress.Position:=round(fstream.Size/(DataSize/100));
     statusbar1.Panels[3].Text:=inttostr(fileprogress.Position)+' %';
   end;
  end;

 if copy(buf, 1, 5)='File:' then
  begin
   path:=copy(buf, 6, Pos(#0, buf)-6);
   Delete(buf, 1, Pos(#0, buf));
   sz:=copy(buf, 1, Pos(#0, buf)-1);
   Delete(buf, 1, Pos(#0, buf));
   DataSize:=StrToFloat(sz);
   FileReceiving:=true;
   ms:=tstringlist.Create;
   fstream:=tfilestream.Create(path,fmCreate);
   fstream.Write(buf[1], length(buf));
  end;

НО,если во время отправки к серверу подключится другой клиент то загрузка встанет!а если отправит какие-то данные то
файл надо будет отправлять снова!
пробовал при подключении сразу же отключать клиент если другой в этот момент чтото загружает но всеравно загрузка остонавливается.

вопрос: есть какой нибудь способ не разрешать новым клиентам (могут быть подключены и несколько старых но они не мешают) соединятся с сервером если идет загрузка?