function BDEVersion : string;
var
BDEVersion : SYSVersion;
Day,Month,Hour,Min,MilliSec : Word;
Year : Smallint;
begin
DbiGetSysVersion(BDEVersion);
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;
// Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := BDEVersion;
end;