Undeclared identifier: 'reference'

[Sti.k]

type
TRefProc = reference to procedure;

implementation

function Thread( const Proc: TRefProc ): THandle;
function Run( const Proc: TRefProc ): Integer; stdcall;
begin
Proc;
Result := 0;
end;
begin
CreateThread( nil, 0, @Run, PPointer( @Proc )^, 0, Result );
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Done: THandle;
begin
Done := CreateEvent( nil, true, false, nil );
try
Thread( procedure
begin
Sleep( 2000 );
SetEvent( Done );
end );
WaitForSingleObject( Done, INFINITE );
finally
CloseHandle( Done );
end;
end;

Нашел такую вот конструкцию, при компиляции вываливается ошибка:
[Error] Unit1.pas(110): Undeclared identifier: 'reference'
Не пойму в чем проблема.

[RinatV]

type
TRefProc = reference to procedure;

видимо прога была написана на более старших версиях Дельфи, хотя на них я не игрался.

может быть прокатит такая переделка

type
TRefProc = {reference to} procedure;

implementation

function Thread( const Proc: TRefProc ): THandle;
function Run( const Proc: TRefProc ): Integer; stdcall;
begin
Proc;
Result := 0;
end;
begin
CreateThread( nil, 0, @Run, PPointer( @Proc )^, 0, Result );
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Done: THandle;

procedure temp;
begin
Sleep( 2000 );
SetEvent( Done );
end;


begin
Done := CreateEvent( nil, true, false, nil );
try
Thread( @temp {procedure
begin
Sleep( 2000 );
SetEvent( Done );
end} );
WaitForSingleObject( Done, INFINITE );
finally
CloseHandle( Done );
end;
end;

курсивом удалить, жирным добавить. Хотя не очень уверен что будет работать.