unit Unit133; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure FormClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; f:text; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin writeln(f,'[[[[[[[[[[[]]]]]]]]]]]]'); closefile(f); end; procedure TForm1.FormClick(Sender: TObject); begin assignfile(f,'c:\w.d'); {$i-} reset(f); {/$i+} if ioresult<>0 then begin rewrite(f); Edit1.Text:=inttostr(ioresult); end; end; end. кто знает почему эта прога выдает ошибку 105 когда f сушествует ,когда его нет то всё в норме и можно ли использовать не FormClick а FormCreate?