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;