Сохранение БД

[Andrey174rus]

Здравствуйте! У меня создана БД, есть кнопка сохранения БД ("Сохранить"). Мне нужно при выходе из программы (по нажатию на крестик в правом верхнем углу программы) чтобы БД сохранялась, также как по нажатию кнопки сохранения.

При нажатии на крестик создал диалоговое окно (Messagebox ("Сохранить изменения в БД перед выходом?" и три кнопки ДА НЕТ ОТМЕНА). При нажатии на кнопку "ДА" создал обработчик button2.click (то самое сохранение БД). Дело в том что при нажатии на кнопку "Сохранить" БД сохраняется, а при выходе из программы БД не сохраняется...

Код кнопки сохранения:

procedure TForm1.Button2Click(Sender: TObject);
var
n:integer;
begin
Query1.DisableControls;
Query1.First;
for n:=1 to Query1.RecordCount do
begin
Query1.Next;
end;
Query1.EnableControls;
end;

Код закрытия программы:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
case messageBox(Handle,'Сохранить изменения в БД перед выходом?','Выход',
mb_YesNoCancel or mb_iconquestion) of
mrYes:Button2.Click;
mrNo:CanClose:=true;
mrCancel:CanClose:=false;
end;
end;

[evg_m]

попробуй так

mryes: button2click(nil);

[Andrey174rus]

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

попробуй так

mryes: button2click(nil);

Не сохраняется по прежнему...

[Serge_Bliznykov]

Вы меня, конечно, простите, но что за бред написан в коде, срабатываемом по кнопке Button2 ?!!!

просто перебираются в цикле все записи в Query1, начиная с первой...
И где там сохранение?!!

[Andrey174rus]

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

Вы меня, конечно, простите, но что за бред написан в коде, срабатываемом по кнопке Button2 ?!!!

просто перебираются в цикле все записи в Query1, начиная с первой...
И где там сохранение?!!

вы наверно не заметили эту строчку:
for n:=1 to Query1.RecordCount do
записи не перебераются, а сохраняются...

[ОДИНОЧЕСТВО В СЕТИ]

for n:=1 to Query1.RecordCount do

это проход по записям Query а не сохранение!!!

[Andrey174rus]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

это проход по записям Query а не сохранение!!!

по нажатию на кнопку "Сохранить" всё без проблем сохраняется, а при выходе из программы нет... Даже если записи просто перебираются, то почему у меня по нажатию этой кнопки всё сохраняется?

[ОДИНОЧЕСТВО В СЕТИ]

а что вы имеете в виду когда говорите "сохраняется"?

[Andrey174rus]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

а что вы имеете в виду когда говорите "сохраняется"?

имею виду что после закрытия, данные которые я изменил, затем сохранил, при повторном запуске программы изменения присутсвуют в базе данных, а не принимают тот вид которые был до изменения...

[Andrey174rus]

Ну что мне кто нибудь поможет?