Почему мой TCP сервер на Delphi, грузит процессор 10% на клиента

[ArtGrek]

Решил написать, многопоточный сервер, на IdTcpServer.
Чтобы получить многопоточность, я из OnExecute вызываю функцию, а из нее другую,
в зависимости от запроса, передаю в качестве параметров записи типа record,
которые состоят из параметров String, Integer, Array [...] of String/Integer.
При запуске приложения ЦП = 0%, память 1.9 мб,
после подключения ЦП = 6-11%, память 2.2мб,
второе подключение ЦП = 18-22%, память 2.4 мб
Насколько я знаю все должно укладываться в 1%,
Подскажите что я не так делаю, в какую сторону копать?
Тут показано как я построил проект

    unit Unit1;

    implementation

    uses myTypes, Unit2;

    procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
    var
      Request : String;
      GetRespons: RGetRespons;
      Respons : ZRespons;
    begin
      Respons := GetRespons.ResponsCreate(Request);
    end;
    end.
    
    unit Unit2;

    uses myTypes;

    type
      RGetRespons = record
        function ResponsCreate(Request: String): ZRespons;
      private
        function RequestPars(Request: String): ZParsedRequest;
      end; 

    implementation

    uses Unit3;

    function RGetRespons.ResponsCreate(Request: String): ZRespons;
    var
      ParsedRequest: ZParsedRequest;
      iParam1: String;
      iParam2: Integer;
      Calculate: RCalculate;
    begin
      ParsedRequest := RequestPars(Request);  
      if ParsedRequest.Param1 then
      begin
        iParam1 := Calculate.NewFunc(ParsedRequest);
    	iParam2 := 
      end;   
      Result.Param1 := iParam1;
      Result.Param2 := iParam2;
    end;

    function RGetRespons.RequestPars(Request: String): ZParsedRequest;
    begin
      Result.Param1 := Value1;
      Result.Param2 := Value2;
      Result.Param3 := Value3;
    end;
    end.
    
    unit Unit3;

    uses myTypes;

    type
      RCalculate = record
        function NewFunc(ParsedRequest: ZParsedRequest;): String;
      end;

    implementation

    uses Unit4, Unit5;

    function RCalculate.NewFunc(ParsedRequest: ZParsedRequest;): String; 
    var
      ReadDB: RReadDB;
      UpdateDB: RUpdateDB;
      iParam: String;
    begin
      iParam := ReadDB.Read(ParsedRequest.Param2)
      ...
      UpdateDB.Update(ParsedRequest.Param2, iParam);
      Result := iParam;
    end;  
    end.
      
    unit Unit4; 

    uses myTypes;

    type
      RReadDB = record
        function Read(Name: String): String;
      end; 

    implementation

    uses Unit1; 

    function RReadDB.Read(Name: String): String;
    begin
      Form1.FDQuery1.SQL.Add('SELECT * FROM `table` WHERE `name` = "' + Name + '" LIMIT 1 LOCK IN SHARE MODE');
      Result := Form1.FDQuery1.FieldByName('col1').AsString;
    end;
    end.
      
    unit Unit5; 

    uses myTypes;

    type
      RUpdateDB = record
        function Update(Name, Value: String): Boolean;
      end; 

    implementation

    uses Unit1; 

    function RUpdateDB.Update(Name, Value: String): Boolean;
    begin      
      Form1.FDQuery1.SQL.Add('UPDATE LOW_PRIORITY `table` SET'
            + ' `col1` = "' + Value + '"'
            + ' WHERE `name` = "' + Name + '" LIMIT 1');
      Result := True;
    end;
    end.
    
    unit myTypes;

    type
      ZRespons = record
    	Param1: String;
    	Param2: Integer;
      end;
    type

      ZParsedRequest = record
    	Param1: Boolean;
    	Param2: String;
    	Param3: Array [0..5] of String;
      end;

    implementation

    end.

[ArtGrek]

В OnExecute в конец процедуры нужно добавить sleep(10) и проблема решена.