Un formulario que no abre!!

[GerTorresM]

Hola a todos el código que me da dolores de cabeza hoy es el siguiente:

Código Delphi [-]
procedure TFMenuPrincipal.DXConfiguracionItems0Click(Sender: TObject);
Var FDatosGenerales_local : TFDatosGenerales;
begin
  if FDatosGenerales_local = nil then
    try
      Application.CreateForm(TFDatosGenerales,FDatosGenerales_local);
      FDatosGenerales_local.ShowModal;
      FreeAndNil(FDatosGenerales_local);
    Finally
    End;
end;

bien el tema es el siguiente en teoria pretendo crear un instancia de la clases TFDatosGenerales que es un formulario como tal, ahora cuando se ejecuta la primera linea salta al final y código y no hace nada.

ahora si cambio en el código y queda así

Código Delphi [-]

procedure TFMenuPrincipal.DXConfiguracionItems0Click(Sender: TObject);
Var FDatosGenerales_local : TFDatosGenerales;
begin
  if FDatosGenerales = nil then
    try
      Application.CreateForm(TFDatosGenerales,FDatosGenerales_local);
      FDatosGenerales_local.ShowModal;
      FreeAndNil(FDatosGenerales_local);
    Finally
    End;
end;

Funciona bien, luego pense que el formulario se estaba autocreando, lo cual descarte al ver la opciones del proyecto.

Entonces la pregunta es que estoy haciendo mal.



gertorresm
Colombia