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)