Access Violation Al finalizar una Función

[jangel_ramirezm]

Hola Buenas Tardes Por aqui

Es una Pregunta sencilla solo que ya llevo un buen rato tratando de identificar porque marca ese Acces violation.
No se si a alguno de ustedes les ha pasado. El problema es este que al finalizar una funcion de tipo Boolean marca el Acces violation.
la funcion obtiene datos de una tarjeta pero antes de esto debe seleccionar unos elementos para poder hacerlo.

Código Delphi [-]
function leer(Direccion,Var Dato:variant):Boolean;
begin
     if seleccionaElemto1 then   
          if seleccionaelemento2then
             if selecionaelemento3 then
             begin
                 Dato:=obtenerdatos(Direccion);
                 result:=true;
             end
           else
                showmessage('No se pudo seleccionar el elemento 3');
         else
              showmessage('No se pudo seleccionar el elemento 2');
     else 
          showmessage('No se pudo seleccionar el elemento 1');  
  
end;

cuando mada el result es cuando marca el access violation incluso hay mas linas despues de que obtiene los datos.
quien sabe si les ha pasado a ustedes pero no se que pueda estar mal.
gracias de antemano por sus respuestas.