Probleme mit create Thread

[sebastian_buege]

Hallo ich möchte ganz einfach einen Thread Programmieren.
hier mein Code

Code:

var
  ThreadID: DWORD;       //Thread-ID
  ThreadHandle: THandle; //Rückgabewert von CreateThread
begin
ThreadHandle:=BeginThread(nil,0,TFNThreadStartRoutine(@Leuchten),nil,0,ThreadID);
...

ich bekomme jedes mal die Meldung "variable erforderlich. und zwar an der stelle @Leuchte

hier die funktionsdefinition : Machta aber noch nichts

Code:

procedure Leuchten;

hat jemand ne idee