Aprendiendo Hilos, (no corre como un hilo)

[flystar]

La funcion que uso para obtener el tamaño es esta:

function tamanoFichero2 (sFileToExamine: string) : Integer;
var
  SearchRec: TSearchRec;
  sgPath: string;
  inRetval, I1: Integer;
begin
  sgPath := ExpandFileName(sFileToExamine);
  try
    inRetval := FindFirst(ExpandFileName(sFileToExamine), faAnyFile, SearchRec);
    if inRetval = 0 then
      I1 := SearchRec.Size
    else
      I1 := -1;
  finally
    SysUtils.FindClose(SearchRec);
  end;
  Result := I1;
end;

La pongo en otro hilo mediante otra clase de clase hilo jeje.
Creo el hilo que va bajar el archivo y luego el hilo que va a ir midiendolo

  midescarga:=TDescarga.Create(false);
        miDiceElTamanio:=TDiceTamanio.Create(false)

nomas que el seguno hilo nomas jala durante los primeros amomentos
y luego ya se frenaz y cuando termina el otro entonces ya se recupera.
Algo quizas haga mal...que sera? Alguien lo sabe?

La parte donde declaro los objetos es esta:

TDescarga = class(TThread)
  private
  protected
    procedure Execute; override;
end;

TDiceTamanio = class(TThread)
  private

  protected
    procedure Execute; override;
    procedure llamaDecirTamanio;
    function tamanoFichero2 (sFileToExamine: string) : Integer;
end;