TToolData=record
    Passed      : Boolean;
    IDBody      : Integer;   
    ...
  end;

type
  TSelectPointsThread = class(TThread)
....
procedure TSelectPointsThread.ProduceQuery;
var
  WT:TToolData;
begin
  CoInitialize(nil);
  try
    try
....
      adsp.Open;

      if adsp.RecordCount>0 then
        begin
          while not adsp.Eof do
            begin
              WT:=default(TToolData);

              //распихиваю принятые данные в record...
              
              //старый вариант
              ToolsList.Lock;
              ToolsList.AddData(WT);
              ToolsList.Unlock;

              adsp.Next; 
            end;
        end;
    except
      //
    end;
  finally
    CoUninitialize;
  end;

type
  TSWPCallback = procedure(const WT:TToolData) of object;

  TSelectPointsThread = class(TThread)
....
procedure TSelectPointsThread.ProduceQuery;
var
  WT:TToolData;
begin
  CoInitialize(nil);
  try
    try
....
      adsp.Open;

      if adsp.RecordCount>0 then
        begin
          while not adsp.Eof do
            begin
              WT:=default(TToolData);

              //распихиваю принятые данные в record...
              
              //реализация c CallBack
              if not Assigned(FSWPCallback) then
                Exit;

              Self.Queue( 
                          procedure
                          begin
                            FSWPCallback(WT);
                          end
                        );

              adsp.Next; //приходит более 1 строки 
            end;
        end;
    except
      on e:Exception do
      begin
        PostToLog('SelectCarErrorsOnMonitoredStations error='+e.Message);
      end;
      on e:EOleException do
      begin
        PostToLog('SelectCarErrorsOnMonitoredStations OLE error='+e.Message);
      end;
    end;
  finally
    CoUninitialize;
  end;

procedure TfrmMain.SelectPointsCallback(const WTD: TToolData);
var
  WT:TTool;
begin
      WT:=TTool.Create;
      WT.AddToolData(WTD); //тут вижу одни и те же данные
      WrongTools.Add(WT);
end;

В потоке переменную WT вынес в private
создал процедуру
procedure MyCallBack;
begin
if Assigned(FSWPCallback) then
  FSWPCallback(WT);
end;

// в исполняемой процедуре указал 

          while not adsp.Eof do
            begin

              Synchronize(MyCallBack); // Remy Lebeau

              adsp.Next;
            end;

procedure SMCB(Window: HWND; Msg: UINT; Data: DWORD;LResult: LRESULT); stdcall;

      SendMessageCallback(Application.MainFormHandle,
        MyMsg,
        0,
        LParam(@lst[i]),
        @SMCB, //ошибка [dcc32 Error] : E2036 Variable required
        1);

var
   FMSG : TMsg;
begin
    repeat
       PeekMessage(FMSG,Application.MainFormHandle, 0, 0, PM_NOREMOVE);
   ....
    until Terminated