Delphi - Ventanas Modales: a ver si queda claro !!!

Hola amigos!!!

El problema, aún, de las ventanas modales es así:

En una aplicación MDI intento mostrar una ventana de diálogo en el inicio de la misma en donde el usuario ingrese la fecha con la que desea trabajar. Como esta ventana es también llamada desde una opción de la aplicación, realicé una función para tal propósito. La función hace algo así:

function Fecha(dFecha: TDateTime);
begin
with TFechaSis.Create(nil) do
try
Result := PedirFecha(dFecha);
finally
Free;
end;
end;

...y en la unidad de la fecha del sistema sería...

function TFechaSis.PedirFecha(var dFecha):boolean;
begin
Result := ShowModal = mrOk;
{El Result siempre es falso en este lugar}
if Result then
dFecha := dFechForm;
{dFechaForm=miembro de la clase TFechaSis}
end;

... la ventana modal tiene un edit y dos botones. En el edit se ingresa la fecha y los botones son Aceptar y Cancelar.
Botón Aceptar: propiedad ModalResult=mrNone
Botón Cancelar: propiedad Modal Result=mrCancel
El botón cancelar no tiene programado ningún evento. En el evento click del botón aceptar hay lo siguiente:

function TFechaSis.BtnAceptarClick(Sender:TObject);
begin
try
{hago algunas cosas sin interés, como abrir una tabla, tomar la última fecha de trabajo, validar el edit y cerrar la tabla}

dFechaForm := EditFecha.Text;
ModalResult := mrOk;
except
ModalResult := mrCancel;
end;
{En este lugar ModalResult es igual a 1}
end;

...He realizado muc