//클라이언트(약100개정도)들이 보내온 데이타(약1000개정도)를 서버가 디비에 넣는 방식입니다   아래와같이 하면 이상이 없을까요?   걱정이 되서요...
제가 뭐 잘못한거 없나 봐주시고  지적해주세요
procedure TForm1.tcpServerExecute(AThread: TIdPeerThread);
var
Client : TSimpleClient;
Com : String;
begin
{ Get the text sent from the client }
sg_Msg := AThread.Connection.ReadLn;
RecvPacket(AThread);
end

procedure RecvPacket(FThread: TIdPeerThread);;
var Q : TQuery;
begin
// 락을 걸고
FCS.Enter;
try
// 몬가 필요한 작업, DB 입력
  Q := TQuery.Create(FThread.Connection);

  //클라이언트에서 보내온 데이타를 디비에 저장한다(약1000개정도) - 클라이언트하나당
finally
// 락을 풀고
Q.Free;
FCS.Leave;
end;
end;