Mensaje antes de salir

[jorgegetafe]

Wueno un par de dudas.

Arriba, en la definición de tipos he tenido que poner esto, porque sino decia que ambas funciones no estaban declaradas, no se si estará bien hecho:

Código Delphi [-]
 
PROCEDURE FormCloseQuery(Sender: TObject; var CanClose: Boolean);
PROCEDURE FormClose(Sender: TObject; var Action: TCloseAction);

No me dejaba poner el tform1 delante.

Luego he puesto este codigo:

Código Delphi [-]
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  var
    Rta: integer;
  begin
    Rta := MessageBox(0, '¿Quiere usted guardar antes de salir?', 'Advertencia', MB_ICONQUESTION or MB_YESNO);
    if Rta = IDYES then
      DebeGuardar:= True
    else
      DebeGuardar := False;
    CanClose := True; //De cualquier modo debe cerrarse. False para que no se cierre
end;

PROCEDURE TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  BEGIN
    IF DebeGuardar THEN
      Guardar1Click(Sender);
    Action := caFree; //caFree para que libere la memoria ocupada
  END;

Y el programa cuando le doy a cerrar no me hace absolutamente nada. ¿Me podeis ayudar? gracias.