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
FEjecutar: Procedure of Object;
protected
procedure Execute; override;
published
property Ejecutar: Procedure of Object read FEjecutar write FEjecutar;
end;
var
Hilo: THilo;
implementation
uses Unit1;
procedure THilo.Execute;
begin
Synchronize(Self.Ejecutar);
end;
procedure CrearHilo;
begin
Hilo := THilo.Create(CreateSuspended:=True);
Hilo.Ejecutar := Form1.ProcesarDatos;
Hilo.Priority := tpNormal;
Hilo.Resume;
end;
procedure ProcesarDatos;
begin
end;
end.
Saludos!