Dudas con Threads en Delphi

[TaaDow]

Tengo un procedimiento al cual le envío dos parámetros, con estos se procesa con un ciclo, estos toman bastante tiempo para culminarse, por lo tanto me bloquea la pantalla, según he leído la solución podría ser hacer un hilo que ejecute esa función, pero la duda es ¿como enviarle a la función del hilo los parametros?, agradezco sus respuestas.

type
  Tinserts = class(TThread)
  private
     i: Integer;
    { Private declarations }
  protected
    procedure Actualiza_pgb;
    procedure Execute; override;
  end;
/**********************************/
la funcion del hilo

procedure Tinserts.Execute;
var
  li:Integer;
  cad:String;
begin
  while not do
      begin
      end;
/***********************************/

la idea es Tinserts.Execute, reciba dos parametros.