Get informations about the BDE version

The function bellow gets some informations about the BDE version.
uses
  � DbiTypes, DbiProcs, DbiErrs;
...

function fDbiGetSysVersion(SysVerList: TStringList): SYSVersion;
begin
   Check(DbiGetSysVersion(Result));
  if SysVerList <> nil then
  begin
   with SysVerList do
   begin
      Clear;
      Add(Format('ENGINE VERSION=%d', [Result.iVersion]));
      Add(Format('INTERFACE LEVEL=%d', [Result.iIntfLevel]));
      Add(Format('VERSION DATE=%s', [DateToStr(Result.dateVer)]));
      Add(Format('VERSION TIME=%s', [TimeToStr(Result.timeVer)]));
    end;
   end;
end;