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;