Proceso al cerrar una form

[fwhite]

Hola amigos:
Quisiera que me dijerais porque no al cerrar una form no me hace lo que le digo. La procedure es la siguiente:

Código Delphi [-]
 
procedure TfmDeportes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  With dmMain do
    begin
      tbDeportes.Active := False;
      tbContadores.Active := False;
    end;
    ShowMessage('Punto de Control');  (Hasta aqui bien, sale el mensaje)
  With dmMain.tbDeportes do  (Desde aqui no lo hace)
    begin
      if State in [dsInsert] then
        begin
          if MessageDlg('Los datos introducidos no han sido grabados' +
            #13 + #13 +
            '¿Deseas grabarlos ahora?', mtconfirmation, [mbNo, mbOk], 0) =
            mrOk then
            Post;
          With dmMain.tbContadores do
            begin
              Edit;
              FieldValues['Tutores'] := FieldValues['Tutores'] + 1;
              Post;
            end;
        end;
      if State in [dsEdit] then
        begin
          if MessageDlg('Los datos introducidos no han sido grabados' +
            #13 + #13 +
            '¿Deseas grabarlos ahora?', mtconfirmation, [mbNo, mbOk], 0) =
            mrOk then
            Post;
        end;
    end;
  Action := caFree;
end;

Graciñas.