вопрос по Дельфи

function gsThreadProc(Param: Pointer): DWord;stdcall; 
begin 
  Result := 0; 
  WriteLn(Integer(Param)); 
end;

var 
 d_threadID: Cardinal; 
  d_threadHandle: THandle; 
begin 
  d_threadHandle := CreateThread(nil, 
                                 0, 
                                 @gsThreadProc, 
                                 Pointer(12345),    // my parameter to pass to the thread procedure 
                                 0, 
                                 d_threadID );