[[maeyanes]]

Hola...

En tu método de clase liberas la forma que creas, así que al salir de la función, Reference tendrá un valor no válido.

En este caso sería mejor solo hacer algo como:

Código Delphi [-]
class function TParentForm.ShowWindow: TModalResult;
begin
  with Self.Create(nil) do
    try
      Result := ShowModal
    finally
      Free
    end
end;

Si te fijas, el método de clase no recibe ningún parámetro y solo devuelve el resultado de ModalResult...



Saludos...