многопользовательский сервер на tserversocket (delphi)

[dyonysos]

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

попробовал устранить,отключением клиента(клиенты конектятся автоматичесски,и ели не вышло то засыпают на 5 минут и пробуют снова)

procedure TMainForm.ServerSocket1ClientConnect(Sender: TObject;Socket: TCustomWinSocket);
begin
  if FileReceiving or DataReceiving then 
      serversocket1.socket.Disconnect(socket.SocketHandle);
end;

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