uses Registry; 
 
procedure GetRegInfo(var s: string); 
var 
  Reg: TRegistry; 
begin 
  Reg := TRegistry.Create; 
  Reg.rootkey := HKEY_LOCAL_MACHINE; 
  try 
    Reg.Openkey('\HARDWARE\DESCRIPTION\System', false); 
    s := Reg.ReadString('SystemBIOSDate'); 
  except 
    s := ''; 
  end; 
  Reg.Free; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  s: string; 
  d: TDate; 
begin 
  GetRegInfo(s); 
  if s <> '' then begin 
    d := VarToDateTime(s); 
    ShowMessage(Datetostr(d)); 
  end else 
    ShowMessage('Fehler'); 
end;