Capturando a data da bios do sistema

{Insira um objeto do tipo Button com a propriedade name definica como Button1 e um objeto do tipo Label com a propriedade definida como Label1. }

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := 'Data da Bios: '+String(PChar(Ptr($FFFF5)));
end;