[Neorlin]

вылетает вот эта ошибка:

Код:

1 2 3 4 5 6 7 8 9

--------------------------- Debugger Exception Notification --------------------------- Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0044FA96 in module 'Project1.exe'. Read of address 000002F5'. Process stopped. Use Step or Run to continue. --------------------------- OK   Help   ---------------------------

ошибку выдает в проэкте на полосе энд:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

program Project1;   uses   Forms,   Unit1 in 'Unit1.pas' {Form1},   Unit2 in 'Unit2.pas' {Form2},   Unit3 in 'Unit3.pas' {Form3};   {$R *.res}   begin   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.CreateForm(TForm2, Form2);   Application.CreateForm(TForm3, Form3);   Application.Run; end.

вот код первой формы

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Menus, Buttons, ExtCtrls;   type   TForm1 = class(TForm)     Image1: TImage;     SpeedButton1: TSpeedButton;     procedure SpeedButton1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   uses Unit2;   {$R *.dfm}       procedure TForm1.SpeedButton1Click(Sender: TObject); begin form2.show; form1.Hide; end;   end.

вот код 2 формы

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70

unit Unit2;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls, Buttons;   type   TForm2 = class(TForm)     RadioGroup1: TRadioGroup;     RadioButton1: TRadioButton;     RadioButton2: TRadioButton;     RadioButton3: TRadioButton;     RadioButton4: TRadioButton;     RadioButton5: TRadioButton;     RadioButton6: TRadioButton;     RadioButton7: TRadioButton;     RadioButton8: TRadioButton;     Image1: TImage;     Image2: TImage;     Image3: TImage;     Image4: TImage;     Image5: TImage;     Image6: TImage;     Image7: TImage;     Image8: TImage;     Image9: TImage;     Image10: TImage;     Image11: TImage;     Image12: TImage;     Image13: TImage;     Image14: TImage;     Image15: TImage;     Image16: TImage;     RadioButton9: TRadioButton;     RadioButton10: TRadioButton;     RadioButton11: TRadioButton;     RadioButton12: TRadioButton;     RadioButton13: TRadioButton;     RadioButton14: TRadioButton;     RadioButton15: TRadioButton;     RadioButton16: TRadioButton;     SpeedButton1: TSpeedButton;     procedure SpeedButton1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form2: TForm2;   implementation   uses Unit3;   {$R *.dfm}   procedure TForm2.SpeedButton1Click(Sender: TObject); begin if radiobutton1.Checked then begin form3.show; form2.Hide; end; end;   end.

вот код 3 формы(при смене с нее выдает ошибку)
даю отдельным файлом


надеюсь на вашу помощь