Como hago esto? multi thread?!?!

[MaMu]

Me gusta lo del Thread pero realmente no logro hacerlo, no se donde debo meterlo.

 
procedure TSecuenciador.dxButton2Click(Sender: TObject);
var MiTHread:TTHread;
     w,x:integer;
begin
   if CheckBox1.Chequed=True   //opcion de infinito o por bucles
     then begin
              //bucle infinito
            end
     else begin
              x:=StrToInt(SpinEdit1.Text);
             //bucle por ciclos
               repeat
                  for w:=0 to ADOQuery1.RecordCount-1 do
                      begin
                         //mis sentencias.....
                      end;
                    x:=x-1;
               until x=0;
            end; 
end;

Gracias por la ayuda.