TOPIC:

       if not mdb.Active then
        mdb.Active:= true;

      TMemDataset(mdb).Append;
      TMemDataset(mdb).FieldByName('batch').AsVariant:= batch;
      TMemDataset(mdb).FieldByName('codVal').AsVariant:= va;
      TMemDataset(mdb).FieldByName('codTop').AsVariant:= vb;
      TMemDataset(mdb).Post;
      OutcodArt:= tempArt;

      Result := True; 

      TMemDataset(mdb).FieldByName('batch').AsString:= batch;
      TMemDataset(mdb).FieldByName('codVal').AsString:= va;
      TMemDataset(mdb).FieldByName('codTop').AsString:= vb;

procedure TMyThread.Execute;
var
  newStatus : string;
begin
  fStatusText := 'TMyThread Starting ...';
  Sleep(10);                                             //Here Assembly Window does NOT appear. Sleep() is in the RTL and has no Overloads
  Synchronize(@Showstatus);                //Here the Window appears. Synchronize is in the RTL and has Overloads
  fStatusText := 'TMyThread Running ...';
  while (not Terminated) and (true {any condition required}) do begin

    //here goes the code of the main thread loop
    newStatus:='TMyThread Time: ' + FormatDateTime('YYYY-MM-DD HH:NN:SS',Now);            //Assembly window appears for the Operator "+". This operator is probably in the RTL and has probably overloads.
    
    if NewStatus <> fStatusText then begin                          //Window appears for the operator "<>" which probably overloads in the RTL
      fStatusText := newStatus;
      Synchronize(@Showstatus);                                        //Window appears for Synchronize()
    end;
  end;