delphi内部版本知多少?

1、如何得到bde的版本

thisversion:Sysversion;

dbigetsysversion(thisversion);

bde的版本为inttostr(thisversion.iversion)

2、得到quickreport的版本

uses qrprntr;

i:=pos('',cqrname);

if i>=0 then

quickreport版本为copy('cqrname,i,99);

如果各位发现更多，请补充！