Hallo supermuckl,
zwar etwas verspätet, aber auf alle Fälle sollte das TRY/FINALLY Konstrukt so aussehen:
Code:
PROCEDURE TFigur.LoadStats;
VAR
Ini : TIniFile;
BEGIN
[color=red][b] Ini := TIniFile.Create(ExtractFilePath(Application.Exename) + 'stats.ini');
TRY[/b][/color]
Name_ := Ini.ReadString('Settings', 'Name', '');
[..]
Disziplin := Ini.ReadString('Settings', 'Disziplin', '');
FINALLY
Ini.Free;
END;
END;
und irgendwann auch mal wieder monster.free falls du mehrere hast und eins stirbt mal oderso
[/quote]