Hallo Hansa,
wenn du den TableStr Array an mehreren Stellen benötigst, aber nur in diesem Formular, kannst du ihn die Privat Section des Objektes packen. Benötigst du ihn nur in der Prozedur, die du angezeigt hast, kannst du ihn auch in die Prozedur selbst packen:
Delphi-Quellcode:
procedure TForm1.btnStartClick(Sender: TObject);
const
TableStr : array [1..20] of String =('FIRMSTAT8', 'DieZweiteTab', 'NochEine' ...);
var i : byte;
m : MonatsUmsatz;
homepath : string;
begin
Sind die Namen einfach nur durchnummeriert, tuts eine Schleife:
TabStr[i] := 'FIRMSTAT'+IntToStr(i);