Confirmación de cerrar ventana.

[gontxalo]

Hola Roman gracias por la ayuda.

El code del form principal queda así:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := (Form3.ShowModal = mrYes);
end;

Y he quitado la programación de los botones del form3. Les he puesto en el modal result mrYes para el botón si y mrNo para el botón no. Lo he probado y cuando cierro la ventana principal con la X salta el form 3 y funcionan correctamente los dos botones. El no solo cierra el form3 y el si cierra el form3 y el form1.
Pero cuando doy al botón salir del principal form, salta el form3 (bien) y le doy al botón no y funciona correctamente, se cierra sólo el form3, pero le doy al botón si y sólo se cierra el form3 y el form principal no se cierra. En teoría tiene que cerrar los dos.

Hay algo que hago mal?

tengo que poner algo más?

Gracias otra vez.