[ApplicatiOn]

Помогите разобраться....

В программе 2 формы.

2ая форма открывает некий файл и выписывает его путь в Edit1.Text

Код:

procedure TForm2.btOpenClick(Sender: TObject);
begin
if opendialog1.execute then
if FileExists(OpenDialog1.FileName) then
Edit1.Text := OpenDialog1.FileName;
OpenDialog1.free;
end;

А первая сохраняет в другой совсем файл совсем другую запись...

procedure TfmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
f: TextFile;

begin

Код:

 AssignFile(f,'Papka\'+file+'.am');
   Rewrite(f); // тут уже коспилятор ругается

пишет ошибку Invalif File Name...

ошибка возникает только после того как я Воспользуюсь Открытием Open Dialog.. если его не трогать то ошибки не будет.. вообще не вижу связи и логики между ними.. в чем причина???