sto disperatamente cercando in rete un esempio di utilizzo di SetTimer con la Callback TimerProc

UINT SetTimer(
HWND hWnd, // handle of window for timer messages
UINT nIDEvent, // timer identifier
UINT uElapse, // time-out value
TIMERPROC lpTimerFunc // address of timer procedure
);

VOID CALLBACK TimerProc(
HWND hwnd, // handle of window for timer messages
UINT uMsg, // WM_TIMER message
UINT idEvent, // timer identifier
DWORD dwTime // current system time
);

io vorrei eseguire ogni 2000 msec la procedura:

procedure TMioTimer.Evento(Sender:TObject);

e vorrei usare questo comando:

SetTimer(0, 0, 2000, addr(Timer1.Evento(Timer1)));

ma continua a darmi l'errore:

VARIABLE REQUIRED???!?!?!?

ma dove??? ma de che???? ma quanno???
AAAAAHHHHHHHHHHHHHHHH
aiuto!!!