[MORPEH]

Есть следующий код:

constructor TThread.Create(CreateSuspended: Boolean);
var
Flags: DWORD;
begin
inherited Create;
FSuspended := CreateSuspended;
Flags := 0;
if CreateSuspended then Flags := CREATE_SUSPENDED;
FHandle := BeginThread(nil, 0, @ThreadProc, Pointer(Self), Flags, FThreadID); //ругается здесь
end;

Ошибка следующая:
[DCC Error] module.pas(2060): E2033 Types of actual and formal var parameters must be identical

Знаю что Flags должен быть SIZE_T, но что еще ему не хватает?

[NumLock]

ThreadProc, FThreadID