Проверьте код !

[Михаил Юрьевич]

Есть вот такой код:
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;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Ini:TiniFile;
pass:String;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Ini:= TIniFile.Create(ChangeFileExt(Param Str(0),'Super.INI'));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
pass:=Edit1.Text;
ini.WriteString('Stop','Password',p ass);
ini.Free;

end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Text:=ini.ReadString('Stop',' Password','Ошибка');
ini.Free;
end;

end.

Когда нажимаю на первую кнопку,информация из Edit1 записывается в
ini-файл,а когда нажимаю кнопку2 вылетает окно с ошибкой,и если
нажать на первую кнопку два раза тоже вылетает ошибка.
Помогите понять в чем дело?

[_Dmitry]

Ты ведь убил объект ini.Free; и пытаешься в него писать или из него читать

[Михаил Юрьевич]

Подскажите что значит убил, и где это исправить.Второй день как
начал изучать эту тему,пока понять тяжело.

[B_N]

Вот это зачем?

procedure TForm1.Button1Click(Sender: TObject);
begin
pass:=Edit1.Text;
ini.WriteString('Stop','Password',p ass);
ini.Free;

end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Text:=ini.ReadString('Stop',' Password','Ошиб ка');
ini.Free;
end;

[_Dmitry]

Этот код: Ini:=TIniFile.Create(ChangeFileExt( ParamStr(0),'Super.INI')); создает объект ini для работы с ini файлом.
Этот код: ini.Free; объект ini уничтожает.

[Михаил Юрьевич]

А где лучше поставить ini.Free? Может быть в OnClose?
Это как я правильно понимая освобождает ресурсы.

[B_N]

Если объект создается в FormCreate, то логично уничтожать его в FormDestroy

[FaTaL]

Да просто цепляй ini и убивай в каждой процедуре, тогда не будет ошибок. А то цепляется он у тебя при создании формы. Как-то неудобно. Пока висит программа, будет и висеть ini файл. Лучше сделай так:

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;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Ini:TiniFile;
pass:String;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
pass:=Edit1.Text;
Ini:= TIniFile.Create(ChangeFileExt(ParamStr(0),'Super.INI'));
ini.WriteString('Stop','Password',pass);
ini.Free;

end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Ini:= TIniFile.Create(ChangeFileExt(ParamStr(0),'Super.INI'));
Edit2.Text:=ini.ReadString('Stop','Password','Ошибка');
ini.Free;
end;

end.