unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, INIFiles, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Edit5: TEdit;
CheckBox1: TCheckBox;
procedure KaydetClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
ayarlar : TIniFile;
implementation

{$R *.dfm}

procedure TForm1.KaydetClick(Sender: TObject);
begin
ayarlar := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'ayarlar.ini');
ayarlar.WriteString('Ayarlar', 'Edit1Text', Edit1.Text,);
ayarlar.WriteString('Ayarlar', 'Edit2text', Edit2.Text,);
ayarlar.WriteBool('ayarlar', 'cekbox', checkbox1.Checked);
ayarlar.Free;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ayarlar := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'ayarlar.ini');
edit1.text := ayarlar.ReadString('Ayarlar', 'Edit1Text', '');
edit2.text := ayarlar.ReadString('Ayarlar', 'Edit2Text', '');
checkbox1.Checked := ayarlar.ReadBool('ayarlar', 'cekbox', checkbox1.Checked);
ayarlar.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ayarlar := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'ayarlar.ini');
ayarlar.WriteString('Ayarlar', 'Edit1Text', Edit1.Text,);
ayarlar.WriteString('Ayarlar', 'Edit2text', Edit2.Text,);
ayarlar.WriteBool('ayarlar', 'cekbox', checkbox1.Checked);
ayarlar.Free;
end;

end.