with DMMain.QSelect do begin
      SQL.Text:='SELECT id FROM u_info_value WHERE info_id=:INFO_ID AND UPPER(name) STARTING WITH UPPER(:NAME) ORDER BY pos';
      ParamByName('INFO_ID').AsInteger:=FDSInfo.FN('ID').AsInteger;
      ParamByName('NAME').AsString:=Copy(MNewValue.Text,1,30);
      ExecQuery;
      if FN('ID').AsInteger > 0 then
         FDSInfoValue.Locate('VALUE_ID', FN('ID').AsInteger, []);
      Close;
      end;

Plan
PLAN (U_INFO_VALUE INDEX (IDX1_U_INFO_VALUE))

Adapted Plan
PLAN (U_INFO_VALUE INDEX (IDX1_U_INFO_VALUE))

------ Performance info ------
Prepare time = 31ms
Execute time = 62ms
Current memory = 119 755 856
Max memory = 1 564 451 568
Memory buffers = 2 048
Reads from disk to cache = 0
Writes from cache to disk = 0
Fetches from cache = 20 702

Plan
PLAN (U_INFO_VALUE INDEX (IDX1_U_INFO_VALUE))

Adapted Plan
PLAN (U_INFO_VALUE INDEX (IDX1_U_INFO_VALUE))

------ Performance info ------
Prepare time = 31ms
Execute time = 62ms
Current memory = 205 081 696
Max memory = 1 564 451 568
Memory buffers = 2 048
Reads from disk to cache = 0
Writes from cache to disk = 0
Fetches from cache = 20 702

Unsuccessful execution caused by an unavailable resource. unable to allocate memory from operating system.