[jmlifi]

He modificado el código de la siguiente manera:

Código Delphi [-]
  
TThread6 = class (TThread)
  public
      constructor Create;
      procedure RecepAutoVeriOferta;
      procedure Execute; override;
  end;
 
Constructor TThread6.Create;
begin
  inherited Create(true);
  Priority := tpNormal;
  FreeOnTerminate := false;
end;
 
procedure TThread6.Execute;
begin
while true do begin
  sleep(22000);
  SynChronize(RecepAutoVeriOferta)
end;
end;

Sigue sin funcionar. sólo ejecuta la primera vez.
En el Event Log del Borland Developer Studio 2006 aparece lo siguiente:
Thread Exit: Thread ID: 2580. Process GestorCS.exe (3924)