Procedure als Parameter übergeben

[SleepyMaster]

Delphi-Quellcode:

function XShow(p:pointer):integer;
begin
ShowMessage('Hallo');
end;

procedure StartThread(Thread:procedure); //<--- Das procedure da mag er ned!
//Hab aber leider keinen Plan was ich sonst da reinschreiben muss!
var
  ThreadID: DWORD;
  ThreadHandle: THandle;
begin
  ThreadHandle:=BeginThread(nil, 0, TFNThreadStartRoutine(@Thread),
    nil, 0, ThreadID);
  if ThreadHandle<>0 then CloseHandle(ThreadHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
StartThread(XShow);
end;

Wie muss es richtig heißen???
Vielen Dank schon mal