Capturar a data da BIOS ( Basic Input Output System ) do computador

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;