Record & ReadFile, falsches Ergebnis

[gORDon_vdLg]

Edit:
Problem gelöst, der typ TFlvHeader muss als packed record deklariert werden damit die Felder alle Lückenlos gesetzt werden.

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Ich habe folgenden Typen deklatiert um den Header einer FLV-Datei auszulesen:

Delphi-Quellcode:

type
  TFlvHeader = record
    Signature:Array[0..2] of AnsiChar;
    Version:Byte;
    TypeFlags:Byte;
    DataOffset:Cardinal;
  end;

Eine Prozedur die den Typen verwendet sieht so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  hDatei, ReadBytes:Cardinal;
  pFlvHeader:TFlvHeader;
begin
  hDatei:=CreateFileW(PWideChar(Edit1.Text), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  ZeroMemory(@pFlvHeader, 9);
  ReadFile(hDatei, pFlvHeader, 9, ReadBytes, nil);

  //FlvHeader
  if (pFlvHeader.Signature = 'FLV') then begin
    Label6.Caption:='OK';
  end else begin
    Label6.Caption:='No Flv File.';
    CloseHandle(hDatei);
    Exit;
  end;
  Label7.Caption:=IntToStr(pFlvHeader.Version);
  if ((pFlvHeader.TypeFlags AND TF_Audio) > 0) then begin
    Label8.Caption:='True';
  end else begin
    Label8.Caption:='False';
  end;
  if ((pFlvHeader.TypeFlags AND TF_Video) > 0) then begin
    Label9.Caption:='True';
  end else begin
    Label9.Caption:='False';
  end;
  Label10.Caption:=IntToHex(pFlvHeader.DataOffset, 8);

  CloseHandle(hDatei);
end;

Das Ergebnis aus pFlvHeader.DataOffset sollte einer 9 entsprechen, jedoch kommt ein Wert heraus der über die 9 Bytes des Records hinaus geht wie der Debugger beweist:

http://gordon.rippkom.eu/files/delphi.bmp

Der rote Kasten zeigt was eigendlich durch ReadFile gelesen wurde, der blaue Kasten zeigt welcher wert sich meiner Meinung nach in pFlvHeader.DataOffset befinden sollte und der grüne Kasten zeigt an was sich tatsächlich, meiner Meinung nach fälschlicherweise in DataOffset befindet.

Wie kann das sein?