Delphi - Consulta Ventana Modales 2 !!!

Hola a todos:
Este es una similitud del problema planteado. En los ShowMessage 3 el resultado es 1 (mrOk), sin embargo, en los ShowMessage 1 y 2 el resultado es 2 (mrCancel). Esto es asignando a los botones Aceptar y Cancelar los valores 'mr' o no.
Una particularidad es que creando una variable para la ventana modal, el problema persiste.

Muchas gracias. Es importante detectar este problema ya que crea dudas acerca del funcionamiento de las ventanas modales.
--------------------------------------------
Function uno;
begin
with TVenModal.Create(Application) do
Result := dos; // dos=metodo TVenModal
Free;
// 1
ShowMessage( IntToStr( Result ) );
end;

Function dos;
begin
Result := ShowModal = mrOk;
// 2
ShowMessage( IntToStr( Result ) );
end;

Function TVenModal.Button1Click;
begin
ModalResult := mrOk;
// 3
ShowMessage( IntToStr( ModalResult ) );
end;

--------------------------------------------

Fabian, seria importante que digas que es lo que intentas hacer y cual es la declaracion de las funciones, ya que en .........

Result := ShowModal = mrOk;
// 2
ShowMessage( IntToStr( Result ) );

Usas Result como booleano y luego como entero ??.

Uso con frecuencia ventanas modales y nunca he tenido problemas con los valores de ModalResult que retornan a travez de ShowModal.
Saludos.