Wie File of String ?

[EccoBravo]

Hallo,

ich will ein File bestehend aus vielen Strings schreiben und lesen derart :

Delphi-Quellcode:

procedure TForm1.B_EichFilmSpeichernClick(Sender: TObject);
var
    i,j    : integer;
    Setup: array[0..155] of string;
    SetupFile : file of string;   // * dieses mag DELPHI nicht
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
begin
    for i := 0 to 150 do
    begin
        Setup[i]:='';
    end;
    Setup[1]:='28.02.2006';
    Setup[2]:='17:14:58';
    Setup[3]:= IntToStr(pGrad);
    for i := 0 to 9 do
    begin
        Setup[4+i]:= FloatToStr(pKoef[i]);
    end;
    for i := 1 to 26 do
    begin
        Setup[20+i]:= FloatToStr(EFilm.Werte[1,i]);
        Setup[70+i]:= FloatToStr(EPlan.Werte[1,i]);
        Setup[120+i]:= FloatToStr(Werte[i]);
    end;

    AssignFile(SetupFile,SetupVerzeichnis+SetupDatei);
    Rewrite(SetupFile);
    for i := 1 to 150 do
    begin
        Write(SetupFile,Setup[i]);
    end;
    CloseFile(SetupFile);
end;

//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure TForm1.FormCreate(Sender: TObject);
var
    SetupFile : File of String;
    i,j    : integer;
    Setup  : array[0..155] of string;
    k : integer;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
begin
    Assign(SetupFile,SetupVerzeichnis+SetupDatei);
    Reset(SetupFile);
    for i := 1 to 150 do
    begin
        Read(SetupFile,Setup[i]);
    end;
    CloseFile(SetupFile);
end;

Ich will einfach nur ein StringArray abspeichern und wieder auslesen - mehr nicht.
SetupFile : file of string geht wohl nicht wegen nicht terminierter String - was wäre also die einfachste Alternative?

Vielen Dank

E. B.