[droguerman]

intenta esto:

Código Delphi [-]

THebra = class(TThread)
  public
    procedure RecepAutoVeriOferta;
    procedure execute; override;
end;


procedure THebra.execute;
begin
  while true do  
  begin
     synchronize(RecepAutoVeriOferta);
     sleep(20000);
  end;
end;

dentro de recepAutoVeriOferta puedes llamar a Coinitialize o tambien en el constructor