有很多方法可以做到这一点。您需要将值保存在某个位置：在文件中，在Windows注册表中，在云中，...

文件

也许最简单的方法是使用INI文件。试试这个：

1. 创建一个新的VCL应用程序。

2. 在主表单中添加一个字段FMyNumber: Integer。

3. 在主表单中，添加以下方法（并确保在实现部分的IniFiles列表中包括IOUtils和uses）：

   function TForm1.GetSettingsFileName: TFileName;
   begin
     Result := TPath.GetHomePath + '\Fuzail\TestApp';
     ForceDirectories(Result);
     Result := Result + '\settings.ini';
   end;
   
   procedure TForm1.LoadSettings;
   var
     Ini: TMemIniFile;
   begin
     Ini := TMemIniFile.Create(GetSettingsFileName);
     try
       FMyNumber := Ini.ReadInteger('Settings','MyNumber',0);
     finally
       Ini.Free;
     end;
   end;
   
   procedure TForm1.SaveSettings;
   var
     Ini: TMemIniFile;
   begin
     Ini := TMemIniFile.Create(GetSettingsFileName);
     try
       Ini.WriteInteger('Settings',FMyNumber);
       Ini.UpdateFile;
     finally
       Ini.Free;
     end;
   end;
   

4. 现在请确保在应用程序启动和关闭时调用它们：

   procedure TForm1.FormCreate(Sender: TObject);
   begin
     LoadSettings;
   end;
   
   procedure TForm1.FormDestroy(Sender: TObject);
   begin
     SaveSettings;
   end;
   

   现在FMyNumber的值将在会话之间保存！

注册表

另一种常见方法可能是使用注册表。试试这个：

1. 创建一个新的VCL应用程序。

2. 在主表单中添加一个字段FMyNumber: Integer。

3. 在主表单中，添加以下方法（并确保在实现部分的Registry列表中包含uses）

   procedure TForm1.LoadSettings;
   var
     Reg: TRegistry;
   begin
     Reg := TRegistry.Create;
     try
       Reg.RootKey := HKEY_CURRENT_USER;
       if Reg.OpenKey('\Software\Fuzail\TestApp',False) then
         try
           if Reg.ValueExists('MyNumber') then
             FMyNumber := Reg.ReadInteger('MyNumber')
         finally
           Reg.CloseKey;
         end;
     finally
       Reg.Free;
     end;
   end;
   
   procedure TForm1.SaveSettings;
   var
     Reg: TRegistry;
   begin
     Reg := TRegistry.Create;
     try
       Reg.RootKey := HKEY_CURRENT_USER;
       if Reg.OpenKey('\Software\Fuzail\TestApp',True) then
         try
           Reg.WriteInteger('MyNumber',FMyNumber);
         finally
           Reg.CloseKey;
         end;
     finally
       Reg.Free;
     end;
   end;
   

4. 现在请确保在应用程序启动和关闭时调用它们：

   procedure TForm1.FormCreate(Sender: TObject);
   begin
     LoadSettings;
   end;
   
   procedure TForm1.FormDestroy(Sender: TObject);
   begin
     SaveSettings;
   end;
   

   再次在会话之间保存FMyNumber的值！