Клиент-сервер+MySQL InterBase проблемы в подключением 2 клиентов.

[Vohakisa]

Использую Indy компоненты. Иногда когда клиент подаёт запрос, сервер отвечает какой-то ошибкой (ошибки разные, часто когда два клиента отсылают запрос, и никогда когда 1 клиент).
Отсюда вывод, что где-то так сказать находится "узкое горлышко" и сервер или БД не успевают выполнить запрос. Своим неопытным глазом вижу три претендента на место "узкого горлышка" (ну нравится мне это выражение ):

1. Программа сервер имеет одно подключение к БД в виде TIBDataBase, 1 транзакцию в виде TIBTransaction и 1 TIBQuery.
2. БД зарегестрирована как локальная База Данных и использует клиентскую библиотеку gds32.dll.
3. Есть подозрения, что Сервер работает только с одним клиентом, то есть не используется многопоточность. Ниже приведён код приёма и ответа сервера.
P.S. Использую TIdCommandHandlers.

procedure TFMain.IdTCPServer1c_loginCommand(ASender: TIdCommand);
var login, pass, s : string;
    j: integer;
begin
//s:=''ж
login:=Asender.Params[0];
pass:=ASender.Params[1];
DM.IBQUsers.Params[0].Value := login;
DM.IBQUsers.Params[1].Value := pass;
DM.IBQUsers.Open;
if DM.IBQUsers.IsEmpty=true then
  ASender.Reply.Text.Text:='Not found1.'
else begin
  while (not DM.IBQUsers.Eof) do
  begin
    for j := 0 to DM.IBQUsers.FieldCount - 1 do begin
     s := s + DM.IBQUsers.Fields[j].AsString;
     s := s + '-';
    end;
    DM.IBQUsers.Next;
    s := s + ';';
  end;
end;
DM.IBQUsers.Close;
if s=''
then
  ASender.Reply.Text.Text:='Not found.'
else
  ASender.Reply.Text.Text:=s;

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

Начал изучать MySQL неделю назад, а инди только второй день знаю.

Укажите мне мои ошибки пожалуйста.