Ejemplo sencillo para ejecutar Hilos en delphi

[[Chris]]

Estás seguro que ése código aparecía así en la Web original? O representa su propia intención de crear tus propios hilos? El código que nos compartes no tiene sentido y está todo mal.

Prueba con este código:

Código Delphi [-]
unit Unit2;

interface

uses
    Classes;

type
    THilo = class(TThread)
    private
        { Private declarations }
        FEjecutar: Procedure of Object;
    protected
        procedure Execute; override;
    published
        property Ejecutar: Procedure of Object read FEjecutar write FEjecutar;
    end;

    var
        Hilo: THilo; // variable global o pública (NO SON BUENA IDEA)


implementation
    uses Unit1;


// implentación de la clase THilo

procedure THilo.Execute;
begin
    // el procedimiento Execute contendrá todo el
    // código central del hilo. Si el hilo fuera
    // un árbol, Execute sería el tronco.
    
    // hacer los cálculos pesados

    // ...
    // ...
    // ...

    // notificar al formulario
    Synchronize(Self.Ejecutar);
    // (synchronize hace que este hilo se sincronice con el
    //  principal, para no interferir en las operaciones que
    //  el último pueda estar realizando. En este caso el
    //  hilo será suspendido [pausado] hasta que "Ejecutar"
    //  termine su ejecución.)
end;


procedure CrearHilo;
begin
    // Como crear el hilo?
    // los hilos se crean cómo cualquier otra clase en Delphi.
    Hilo := THilo.Create(CreateSuspended:=True);

    Hilo.Ejecutar := Form1.ProcesarDatos;
    Hilo.Priority := tpNormal;
    Hilo.Resume;
end;

procedure ProcesarDatos;
begin
  // Este es el procedimiento que ejecutará nuestro hilo
  // Cuidado con hacer procesos críticos aquí
  // El procesamiento paralelo de XP no es el de Linux
  // Se puede ir por las patas abajo...


end;

end.

Saludos!