How to get BIOS information?

Problem/Question/Abstract:

This code shows you some information about your BIOS:

Answer:

procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    Label1.Caption := string(PChar(Ptr($FE061))); // BIOS Name
    Label2.Caption := string(PChar(Ptr($FE091))); // Copyright
    Label3.Caption := string(PChar(Ptr($FFFF5))); // BIOS Date
    Label4.Caption := string(PChar(Ptr($FEC71))); // Serial Number
  except
    Label1.Caption := 'Unsupported';
    Label2.Caption := 'Unsupported';
    Label3.Caption := 'Unsupported';
    Label4.Caption := 'Unsupported';
  end;
end;

Hint!
This method doesn't work with NT based systems like Windows NT, 2000 and XP.