Problem beim Listen aller threads

[R2009]

Hallo zusammen,
ich versuche eine Liste aller eigenen threads zusammen zu kriegen.
Ich habe diesen Code gefunden:

Delphi-Quellcode:

procedure TMain_form.Button1Click(Sender: TObject);
var
  Snapshot: THandle;
  Thread32: TThreadEntry32;
begin
  Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, GetCurrentProcessId());
  if (Snapshot <> 0) and (Snapshot <> INVALID_HANDLE_VALUE) then
    try
      ZeroMemory(&Thread32, SizeOf(TThreadEntry32));  <----------------------------
      Thread32.dwSize := SizeOf(TThreadEntry32);
      if Thread32First(Snapshot, Thread32) then
        repeat
          //...
        until not Thread32Next(Snapshot, Thread32);
    finally
      CloseHandle(Snapshot);
    end;
//  central.switch_baudrate;
end;

Mein Compiler meckert:
inkompatible Typen pointer and tag threadentry32

Was ist da falsch?

Grüsse
Rainer

[DeddyH]

Versuch es mal mit

Delphi-Quellcode:

ZeroMemory(@Thread32, SizeOf(TThreadEntry32));