[helper999999]

Есть некая функция вот как она выглядит

Код:

function tt(parameter: pointer): ptrint;
begin
 SetTimer(Form1.Handle,1,100,@tp);
end;

выдает ошибку [dcc32 Error] Unit1.pas(36): E2003 Undeclared identifier: 'ptrint'
как идентифицировать параметр ptrint или чем заменить?