произвольный выбор из констант

[Arhangel_bes]

На самом простом запоролся! Всё работает, спасибо большое!

[Alter]

вот так лучше:

Const n :Integer=6;
          m: array[1..n]of string=('variant1.db','variant2.db',...);
var
  s: string;
begin
  s:=m[1+random(n)];
end.