Chavalón:
Ya probe siguiendo el link que enviaste
http://www.levelextreme.com/Magazine/Spanish/September2002/Page27.aspy haciendo un ejemplo similar al puesto en el link, me arroja un error de tipo de datos (data type mismatch) en la linea IF SEEK( tcIDImagen ).
Esto es lo que hice:
1.- crear la funcion (queimagen)
2.- en la ventana de comandos puse SET PROCEDURE TO PROGRAM.PRG
3.- poner un image1 en la forma al cual le cambie el picture con =queimagen(foto)
4.- considerando que ya tengo el path, id, tipo y detalle en la tabla (1 registro).
Que me estoy brincando o que me falta hacer para que funcione?