[XaKeR282]

Помогите мне с этой задачей:

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form2.showmodal;
end;

Это для Form1. Т.е когда закрываю её должно вызваться Form2
http://www.delphisources.ru/forum/at...d=129615910 9
Когда нажимаю на кнопку "Да" то форма закрывается текст сохраняется.
А пр нажатие на нопку "Нет" тогда хочу чтоб закрыласьтолько вторая форма, а первая не закрывалась, а код я написал вот так:

Код:

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Memo1.Lines.SaveToFile('1.txt');
Form2.Close;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.Close;
end;

А при таком коде он мне обаокна закрывает.

За ранее блогодаен