Also ich würde ein Konstantenarray einsetzen:
Delphi-Quellcode:
const
MyList : array[0..1200] of AnsiString = (
'blabla',
'blabla2',
...
);
function blabla: TStrings
begin
...
for i:=Low(MyList) to High(MyList) do
result.Add(Mylist[i]);
Das hat den Vorteil, dass deine 1200 Zeilen "dichter" (also ohne immer ein result.Add()) zusammen sind.
Ausserdem spart man auch den Code für ungefähr 1200 Methodenaufrufe.
Allerdings habe ich früher schon mal festgestellt, dass bei sehr grossen Konstantenarrays der
Compiler extrem langsam (einige Minuten) werden kann.
Dieser Performanceeinbruch steigt dann auch noch quadratisch mit der Anzahl der Einträge
