Mal wieder IniFiles

[Tim.exe]

Hallo,

ich schreibe und lese Werte über OnCreate und OnDestory in eine *.ini

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var savestat: TIniFile;
begin
savestat := TIniFile.Create(ExtractFilepath(Application.Exename)+'settings.ini');
try
RadioBox1.Checked:=savestat.ReadBool('Start', 'Status1', RadioBox1.Checked);
Edit1.Text:=savestat.ReadBool('Text', 'Status1', Edit1.Text);
finally
savestat.Free;
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var savestat: TIniFile;
begin
savestat := TIniFile.Create(ExtractFilepath(Application.Exename)+'settings.ini');
try
savestat.WriteBool('Meldung1', 'Start', RadioBox1.Checked);
savestat.WriteString('Text', 'Status1', Edit1.Text);
finally
savestat.Free;
end;
end;

Das funktioniert tadellos sofern ich das Programm manuell beende.

Ändere ich aber die Werte und reboote oder beende Windows ohne das Programm zuvor manuell beendet zu haben, werden die geänderten Werte nicht gespeichert und sind bei einem erneuten Programmstart nicht vorhanden.

Wie kann ich das unterbinden? Also das die neuen Werte vor dem Reboot noch gespeichert werden.
Hat jemand nen kleinen Tip?