Kleines Problem mit INI

[Jack23]

Hm irgend etwas stimmt da noch nicht. CheckBox 1 wird nie angekreuzt. Obwohl der Wert 1 ist.
Mein Code.
Oben das auslesen unten das schreiben:

Delphi-Quellcode:

procedure TForm8.FormShow(Sender: TObject);
var ini: TIniFile;x: Integer;
begin
  ini:=TIniFile.Create('test.ini');
  try
    x:=ini.ReadInteger('Test','Eigenschaft',0);
      if x = 1 then CheckBox1.Checked;
        finally
    ini.free;
  end;
end;

procedure TForm8.onclick(Sender: TObject);
var ini: TIniFile;
begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
    'test.ini');
    if CheckBox1.Checked then
    ini.WriteString('Test','Eigenschaft','1');
    if not CheckBox1.Checked then
    ini.WriteString('Test','Eigenschaft','0');


    ini.free;
    end;