Function Get_BDE_Version(): String;
Var
   BDEVersion: SYSVersion;
   Day, Month, Hour, Min, MilliSec: Word;
   Year: SmallInt;

Begin
DbiGetSysVersion(Get_BDE_Version);
With BDEVersion Do
       Begin
       DbiDateDecode(dateVer, Month, Day, Year);
       DbiTimeDecode(TimeVer, Hour, Min, MilliSec);
       Result:= Format('Database Engine version %d.%.3d of %.2d/%.2d/%d, %.2dh:%.2dm:%.2ds',[Hi(iVersion),Lo(iVersion), Month, Day, Year, Hour, Min, MilliSec Div 1000]);
       End;
End;