BIOS Infos auslesen klappt nicht! Warum?

[max666]

Hallo!

Ich wollte ganz gerne Informationen aus meinem BIOS mit den folgenen Anweisungenm, die ich im Internet gefunden habe auslesen. Klappt leider nicht. Ich bekomme immer eine EAccessViolation.
Weiß einer, was hier falsch läuft?

Gruß aus dem Emsland
MAX666

Delphi-Quellcode:

 try
   Label1.Caption := String(Pchar(Ptr($FE061))); // Biosname
   Label2.Caption := String(Pchar(Ptr($FE091))); // Copyright
   Label3.Caption := String(Pchar(Ptr($FFFF5))); // Datum
   Label4.Caption := String(Pchar(Ptr($FEC71))); // Seriennummer
except
      Label1.Caption := 'Nicht verfügbar';
      Label2.Caption := 'Nicht verfügbar';
      Label3.Caption := 'Nicht verfügbar';
      Label4.Caption := 'Nicht verfügbar';
end;