procedure TForm1.N9Click(Sender: TObject);
begin
DM.ADOtable1.Sort := 'Фамилия';
N9.Checked := true;
N10.Checked := false;
N11.Checked := false;
boolean := 0;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
N9.Checked := false;
N10.Checked := true;
N11.Checked := false;
boolean := 1;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
N9.Checked := false;
N10.Checked := false;
N11.Checked := true;
boolean := 2;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
Ini: Tinifile;
begin
Ini:=TiniFile.Create(extractfilepath(Application.ExeName) + 'IniFile.ini');
boolean:=Ini.ReadInteger('Checked', 'Boolean',10);
Ini.Free;
If boolean = 0 then
N9.Click;
If boolean = 1 then
N10.Click;
If boolean = 2 then
N11.Click;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
Ini: Tinifile;
begin
Ini := TiniFile.Create(extractfilepath(Application.ExeName) + 'IniFile.ini');
Ini.WriteInteger('Checked', 'Boolean', boolean);
Ini.Free;
end;