Cast pointer zu record

[Lyan]

Hi,

ich portiere gerade eine Funktion aus meinem C++ Code nach Delphi und ich habe Delphi leider verlernt wie es scheint und verzweifle gerade daran zu casten:

Delphi-Quellcode:

  hFile := CreateFileA(szDllName, GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
  if hFile <> INVALID_HANDLE_VALUE then
  begin
    dwSize := GetFileSize(hFile, nil);
    pbDLL := GetMemory(dwSize);
    ReadFile(hFile, pbDLL, dwSize, dwRead, nil);
    CloseHandle(hFile);

    if IMAGE_DOS_HEADER(pbDLL).e_magic <> $5A4D then
    begin

    end;
  end;

Es geht um den cast zu IMAGE_DOS_HEADER. Ich möchte nicht extra eine variable anlegen und size of dos header rein lesen. In c++ ist es easy:

reinterpret_cast<IMAGE_DOS_HEADER*>(pbDLL)->e_magic apropro e_magic, kennt jemand magic um das in delphi ähnlich zu machen?

Danke im voraus!