Problem mit einer procedure (Action deklaration)

[AlexII]

Hallo,

ich habe folgende procedure geschrieben:

Delphi-Quellcode:

procedure TForm1.SaveMainSettings;
var Ini: TIniFile;
    UserAppDataDir: String;
    i: Integer;
    s1,s2,s3,s4: String;
    List: TStringList;
begin

  UserAppDataDir := GetSpecialFolder(CSIDL_LOCAL_APPDATA);
  ForceDirectories(UserAppDataDir + AppDataRootDir + AppDataProjectDir);
  Ini := TIniFile.Create(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\Config-t.ini');
 try
   Ini.WriteInteger('Default', 'Channel', ComboBox1.ItemIndex);
   Ini.WriteInteger('Default', 'Volume', TrackBar1.Position);
   ......
 finally
   Ini.Free;
 end;
Action:=caFree;                 <----- hier wird die Fehlermeldung ausgelöst. 

//ChannelList save
 List:=TStringList.Create;
 try
    for i:=0 to ListBox1.Count-1 do
    begin
    s1:=ListBox1.Items.Strings[i];
    s2:=ListBox2.Items.Strings[i];
    s3:=ListBox3.Items.Strings[i];
    s4:=ListBox4.Items.Strings[i];
    List.Add('=' + s1 + '=' + s2 + '=' + s3 + '=' + s4 + '=');
    end;
    List.SaveToFile(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\ChannelList.ccr');
 finally
    List.Free;
 end;
end;

aber irgendwie funktioniert sie nicht so richtig, bekomme folgende Fehlermeldung:

Zitat:

[Fehler] Unit1.pas(1150): Inkompatible Typen: 'TBasicAction' und 'TCloseAction'

Wer kann mir hier weiter helfen?