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

Code:

function GetBiosDate1: String;

var

   Buffer : Array[0..8] Of Char;

   N : DWORD;

begin

   ReadProcessMemory(GetCurrentProcess,

   Ptr($FFFF5),

   @Buffer,

   8,

   N);

   Buffer[8] := #0;

   result := StrPas(Buffer)

end;

function GetBiosDate2: String;

begin

   result := string(pchar(ptr($FFFF5)));

end;

{Only for Win 95/98/ME)

Code:

function GetBIOSDate: string;

{получение даты BIOS в Win95}

var

s: array[0..7] of char;

p: pchar;

begin

p := @s;

asm

   push esi

   push edi

   push ecx

   mov esi,$0ffff5

   mov edi,p

   mov cx,8

   @@1:mov al,[esi]

   mov [edi],al

   inc edi

   inc esi

   loop @@1

   pop ecx

   pop edi

   pop esi

end;

setstring(result, s, 8);

end;