выход из программы...

[DIMASIKXXX32]

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

Сначала так как написали Вы (была ошибка). Потом как я писал сначала(вышло тоже самое как я и описал в начале).

//Это событие формы по закрытию
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  begin
    if Application.MessageBox('Вы действительно хотите закрыть программу?',
      'Предупреждение', MB_YESNO + MB_ICONWARNING) = IDNO
    then
    //Если нажата кнопка нет
      begin
        Abort;
      end;
  end;

Если на кнопку то кидаешь на форму кнопку и двараза на нее щелкаешь
и пишишь

procedure TForm1.Button1Click(Sender: TObject);
  begin
    Close;
  end;