Access Violation Al finalizar una Función

[jangel_ramirezm]

Hola:
Gracias le puse el punto de ruptura en la funcion y la ejecuta bien pero
pues sigue marcando el acces violation incluso si pongo mas instrucciones
después del result.

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;                 
      showmessage(dato);                        
    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;

aparece el mensaje mostrando el dato y despues marca el error.
ahí si no se que pueda estar pasando.
saludos