Mep Sites: Dicas de Delphi - Data da BIOS

Veja o exemplo seguinte, considerando-se que ao clicar no Button1 a data seja exibida no Label1:

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