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;