Ошибки в Delphi

[RockForr]

Что это за ошибка и как избавиться от неё?

Project Project1.exe raised exception class EAccess Violation with message 'Access violation at address 0040402C in module 'Project1.exe' Write of address 00000007'. Process stopped. Use Step or Run to continue.

[Лукманов Александр]

Похоже чё то сохранить не может. Она при закрытие происходит?

[evg_m]

где код иначе ошибка в 17 строке

[RockForr]

Извиняюсь, вот ошибка, она при открытии возникает

Project Project1.exe raised exception class EAccess Violation with message 'Access violation at address 0040402C in module 'Project1.exe' Write of address 00000004'. Process stopped. Use Step or Run to continue.

[Лукманов Александр]

Дополнительные компоненты устанавливали? Думаю они не грузятся.
Попробуй удалить. Или переустановить.

[RockForr]

Компоненты не устанавливал, как в коде ошибку изменить, это возможно?

[Пепел Феникса]

а может покажешь строку на которой останавливается приложение?
а лучше весь тот кусок кода
кстати ошибка эта вообще то обычно возникает при обращении к несуществующему обьекту или не своей области памяти(что почти одно и тоже)

[RockForr]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
inifile: tinifile;
s:string;
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
inifile:=inifile.create(extractfile path(paramstr(0))+' book.ini');
s:=inifile.readstring('Pas','Pass', '1234');
inifile.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if s=Edit1.Text then form2.show else close;
end;

end.

[RockForr]

unit Unit2;

interface

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

type
TForm2 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
inifile: tinifile;
implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
inifile:=tinifile.create(extractfil epath(paramstr(0))+' book.ini');
inifile.writestring('Pas','Pass',ed it1.text);
inifile.free;
end;

end.

[Пепел Феникса]

inifile:=inifile.create(extractfile path(paramstr(0 ))+' book.ini');
замени на

inifile:=Tinifile.create(extractfilepath(paramstr(0 ))+' book.ini');