Aprendiendo Hilos, (no corre como un hilo)

[flystar]

Tienes razon, ya lo arregle,

La onda es que quiero hacer un auto arranque de un programa
para que se actualize solo a la nueva version y luego arranque,

para tal motivo necesitaba de hilos para que al ir bajando el programa
con otro hilo fuera consultando el tamaño del archivo bajado,
ahora la bronca es que el hilo que mide el tamaño del archivo bajandose
solo funciona en los primeros momentos de la descarga, y luego cuando termina de descargar el archivo, vuelve a recuperar su funcion el hilo que da el tamaño.

Es normal?

[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;