Проблемы с переносом кода с Delphi 7 на Delphi XE2

[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, но что еще ему не хватает?

[northener]

Дело не во Flags, а в FThreadID. У вас эта переменная имеет не тот тип.