unit BiosDate; interface function GetBiosDate: string; implementation function SegOfsToLinear(Segment, Offset: Word): Integer; begin result := (Segment shl 4) or Offset; end; function GetBiosDate: string; begin result := string(PChar(Ptr(SegOfsToLinear($F000, $FFF5)))); end; end.