Sollte eigentlich. Aber dein gesamter try-Block ist Mist. Bei einem Fehler wird Ini nicht wieder freigegeben usw.
So ist es besser:
Code:
[b]procedure[/b] TKundenDruckMenue.FormClose(Sender: TObject;
[b]var[/b] Action: TCloseAction);
[b]var[/b]
Ini : TIniFile;
i : Integer;
reihenfolge : [b]String[/b];
[b]begin[/b]
reihenfolge := '';
[b]for[/b] i := 0 [b]to[/b] DBGrid1.FieldCount-1 [b]do[/b]
reihenfolge := reihenfolge+IntToStr(DBGrid1.Fields[i].Index)+';';
Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'Einstellungen.ini');
[b]try[/b]
Ini.WriteString('Grid', 'Reihenfolge', reihenfolge);
[b]finally[/b]
Ini.Free;
[b]end[/b];
[b]end[/b];
Eventuell behebt das auch dein Poblem.