LLamada a un Form

[Miguel45]

Hola compañer@s

Quiero plantear una duda que tengo desde hace tiempo.
Vengo de Delphi 7 y ahora estoy migrando a Delphi XE.
Hasta ahora, las llamadas a los distintos forms que componen cualquier aplicación, las hago de la siguiente manera:

Código Delphi [-]
        try
         form_consulta_clientes:=TForm_consulta_clientes.Create(self);
         form_consulta_clientes.showmodal;
        finally
         form_consulta_clientes.Label1.free;
         form_consulta_clientes.Nombre.free;
         form_consulta_clientes.Label2.free;
         form_consulta_clientes.nombre2.free;
         form_consulta_clientes.Label3.Free;
         form_consulta_clientes.ciudad.free;
         form_consulta_clientes.Select_clientes.free;
         form_consulta_clientes.DataSource1.free;
         form_consulta_clientes.DBGrid1.free;
         form_consulta_clientes.BitBtn1.free;
         form_consulta_clientes.BitBtn2.free;
         form_consulta_clientes.free;
         form_consulta_clientes:=nil;
        end;

Mi duda no está en la llamada al form, sino en la forma de cerrarlo y liberar el form de la memoria.
¿Es necesario liberar cada componente del form o simplemente basta con liberar el form (form_consulta_clientes.free y form_consulta_clientes:=nil)?

Un saludo a todos.

[[duilioisola]]

Solo es necesario liberar los componentes que creas en tiempo de ejecución, a menos que al crearlos los asignes algún otro componente en la propiedad Parent.
El "Parent" se encarga de liberar a sus "componentes hijos".

Además de esto, puedes poner en el método OnClose del formulario creado Action := caFree

Código Delphi [-]
// Ejemplo de un componente creado en tiempo de ejecución
// Se liberará automáticamente cuando se libere el formulario FMPedidos
procedure TFMPedidos.FormCreate(Sender: TObject);
begin
  MTelefonos := TLFMemo.Create(Self);
  with MTelefonos do
  begin
     Visible := False;
     Parent := Self;
     BorderStyle := bsNone;
     Color := clInfoBk;
     ReadOnly := True;
     WordWrap := False;
  end;
  [...]

Código Delphi [-]
// Al establecer que la accion es caFree, se liberará la memoria al cerrar el formulario
procedure TFMPedidos.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
  [...]

[dec]

Hola,

Empezado por duilioisola

Solo es necesario liberar los componentes que creas en tiempo de ejecución, a menos que al crearlos los asignes algún otro componente en la propiedad Parent. El "Parent" se encarga de liberar a sus "componentes hijos".

Es correcto pero cambiando "Parent" por "Owner".

[Miguel45]

Gracias a los dos.
Dudas resuelta.

Un saludo