Как получить дату BIOS?

Code:

unit BiosDate;

interface

function GetBiosDate: String;

implementation

function SegOfsToLinear(Segment, Offset: Word): Integer;

begin

result := (Segment SHL 4) OR Offset;

end;

function GetBiosDate: String;

begin

result := String(PChar(Ptr(SegOfsToLinear($F000, $FFF5))));

end;

end.

Code:

var

BiosDate: array[0..7] of char absolute

$FFFF5;

PCType: byte absolute $FFFFE;

procedure TForm1.FormCreate(Sender: TObject);

var

S: string;

begin

case PCType of

   $FC: S := 'AT';

   $FD: S := 'PCjr';

   $FE: S := 'XT =8-O';

   $FF: S := 'PC';

else

   S := 'Нестандартный';

end;

Caption := 'Дата BIOS: ' + BiosDate + '  Тип ПК: ' + S;

end;