Error al salir de un modal

[amadis]

Hola compañeros

Tengo una duda respecto de los Form Modal.

Si creo un form de la siguiente forma

Código Delphi [-]
 
Form := TFormCreate(nil);
  try
   Form.ShowModal;
  finally Form.Free;
  end;

Luego en el evento ONCLOSE del Form ¿no debo poner Action := caFree; ? no?.
Porque lo hace en el finally?

Consulto porque siempre tenia el action en el OnClose y el Finally y no tenía problemas.

Pero ahora me sale problema de Operacion de Puntero invalido, cuando intento usar If para saber el MODAL RESULT.

Código Delphi [-]
Form := TFormCreate(nil);
  try
   if Form.ShowModal = mrok
     then showmessage('ok');
  finally Form.Free;
  end;

El error es porque estoy haciendo FREE dos veces, una en el ON CLOSE del Form y otra en el finally.

Cual sería el lugar indicado para el FREE ¿ en el finally del Try? o en el ONCLOSE del Form?

[ecfisa]

Hola.

Revisa este artículo: ¿Hay vida después de la muerte?

Saludos

[[kuan-yiu]]

Empezado por ecfisa

Hola.

Revisa este artículo: ¿Hay vida después de la muerte?

Saludos

Interesante

[amadis]

Empezado por ecfisa

Hola.

Revisa este artículo: ¿Hay vida después de la muerte?

Saludos

entonces

Los dos métodos (el uso de caFree y el uso explícito de Free), efectivamente, funcionan bien por separado.
Al mezclar las dos técnicas, el algoritmo sigue funcionando bien, y el objeto se destruye una sola vez.

¿no hay una forma correcta? seria así?