Создать файл текущем каталоге

[tarakan1983]

Ситуация. Нужно созданный файл, сохранить в каталоге. Если файл с таким именем существует, показать форму, где задать другое имя файла и сохранить, но если пользователь просто закрывает окно где нужно задать имя файла, то программа выполняется дальше с начальным именем файла. Как реализовать эту задачу? Начал так:
h:= edit1.Text;
if fileExists('Àðõèâ\'+h+'.xls') then
begin
//showmessage('Óæå åñòü ');
form7.ShowModal;
h:=form7.Edit1.Text;
end;
Как закончить не заю. Помогите пожалуйста.

[Terran]

Из имеющейся информации я могу посоветовать делать проверку на наличие файла, если он есть, то вызывать форму7 и потом в ней уже смотреть, если указали путь, то сохраняем по указанному пути, а если нет, то по пути который стоит по умолчанию.

[tarakan1983]

делать проверку на наличие файла, если он есть, то вызывать форму7
if fileExists('Àðõèâ\'+h+'.xls') then
begin
form7.ShowModal;
что я и делаю

и потом в ней уже смотреть, если указали путь, то сохраняем по указанному пути, а если нет, то по пути который стоит по умолчанию.

а если форму 7 просто закрыли крестиком?

[Terran]

а если форму 7 просто закрыли крестиком?

Тогда делаем обработчик события OnClose.

Procedure TForm7.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin
//Код который будет выполняться, когда путь не указан.
End;

[tarakan1983]

Когда путь не указали форма не должна закрыться, и заставить пользователя ввести другое имя файла.

[Terran]

Сообщение от tarakan1983

Когда путь не указали форма не должна закрыться, и заставить пользователя ввести другое имя файла.

В данной ситуации заставить пользователя нельзя, но можно сделать так:

Var
S: String;
Procedure TForm7.FormShow(Sender: TObject);
Begin
S:=Edit1.Text;
End;
Procedure TForm7.FormCloseQuery(Sender: TObject; Var CanClose: Boolean);
Begin
If Edit1.Text=S Then
Begin
CanClose:=False;
End
Else
Begin
CanClose:=True;
End;
End;

[tarakan1983]

Вот что меня интересовало, примного благодарен