non-vcl Thread innerhalb einer Klasse deklarieren

[Nogge]

Hallo Community,
Ich stehe gerade vor einem Syntaxproblem (jedenfalls hoffe ich das ganz stark!). Ich möchte eine non-vcl-Thread-Klasse erstellen, die in etwa so aussehen sollte:

Delphi-Quellcode:

TMyClass = class
  private
    [...]
    TMyThread = function dummyThread(Ptr: Pointer): DWORD; //funzt so leider nicht
    myThread: TMyThread;
  public
    procedure callThread();
  end;

[...]

function TMyDialog.dummyThread(Ptr: Pointer): DWORD; // dummyThread ist Bestandteil der Klasse TMyDialog
begin
  result := 1;
end;

procedure TMyDialog.callThread();
begin
  tHandle := BeginThread([...], @myThread, [...]);
  tHandle := BeginThread([...], @dummyThread, [...]); // Syntaxfehler!
end;

BeginThread verlangt eine Variable vom Typ TThreadFunc und genau das ist das Problem. Sobald dummyThread als Bestandteil einer Klasse deklariert wird, ist es keine Variable mehr. Kann mir jemand sagen, ob man dies iwie umgehen kann?

mfg Nogge