Esta es la funcion que utilice:

FUNCTION QueImagen
LPARAMETERS tcIDImagen <<<<<<<---------------------------- 2
LOCAL lnSelect, lcImagen
lnSelect = SELECT() && Recordar área de trabajo
IF NOT USED("imagenes_arma_fullpath")
USE imagenes ;
ORDER ID ;
AGAIN IN 0 ;
ALIAS imagenes_arma_fullpath
ENDIF
SELECT imagenes_arma_fullpath
IF SEEK( tcIDImagen ) <<<<<<<---------------------------- 1 Aqui
lcImagen = ALLTRIM( Path ) + ;
ALLTRIM( ID ) + ;
"." + ;
ALLTRIM( Tipo )
IF NOT FILE( lcImagen )
lcImagen = ""
ENDIF
ELSE
lcImagen = ""
ENDIF
SELECT (lnSelect) && Volver al área de trabajo anterior
RETURN lcImagen

y donde pongo la marca es el error, pero si le cambio al tcIDImagen por el ID que tengo en mi base (folio) en los puntos 1 y 2 ya no me arroja el error pero no me despliega la imagen