procedure TMainForm.FormDestroy(Sender: TObject);
var
Ini : TIniFile;
begin
Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'My.ini');
try
Ini.WriteBool('HoverWindow', 'Visible', HoverWindowZeigen);
if WindowState = wsNormal then begin
Ini.WriteInteger('MainWindow', 'WindowState', 0);
Ini.WriteInteger('MainWindow', 'Left', Left);
Ini.WriteInteger('MainWindow', 'Top', Top);
Ini.WriteInteger('MainWindow', 'Width', Width);
Ini.WriteInteger('MainWindow', 'Height', Height);
end
else if WindowState = wsMinimized then
Ini.WriteInteger('MainWindow', 'WindowState', 1)
else if WindowState = wsMaximized then
Ini.WriteInteger('MainWindow', 'WindowState', 2);
finally
Ini.Free;
end;
end;