ayuda por favor

mira lo que pasa es que guardo la imagen en el campo foto de la tabla y al ejecutarlo me muestra la foto el problema viene cuando borro la foto de mis documento hay ya no me la muestra
use tabla
x= getpict()
thisform.image1.picture = X
replace foto with x
thisform.image1.picture = X
entonces lo que quiero es que la imagen seleccionada con algun comando de copy me la copie a una carpeta que yo quiera espero me netiendas
para asi si escojo una imagen de mis documentos ya no importe si la borro porque la voy a tener en la carpeta del programa
el commando seria algo como:
x= getpict()
copy file x to d:\carpeta_del_programa
x seria la imagen seleccionada
y d:\ la ruta a donde la quiero copiar como lo puedo lograr
o como logro que la imagen seleccionada con getpict() me la guarde en la tabla
gracias
 

no me sirvio muestra un error en la reta y la cambie por "d:\micarpeta"+x la probe de muchas formas
sera que no me puedes ayudar con alguna forma para guardar imagenes a la tabla y luego mostrarlas en una image en el formulario
o si me puede decir la forma de poner la imagen en un campo de la tabla de tipo general
si tienes ejemplos echos mi correo este agradesco la ayuda que me puedas dar  tatto57@hotmail.com

No, supongo que no sirvió.
Si quieres copiar la imagen a otro lugar intenta:

x = GetPict()
y = "d:\carpeta_del_programa " + SubStr(A, RAt( "\", x ) )
Copy File (x) To (y)
Replace foto With y
ThisForm.image1.Picture = y

¿Ya probaste el código anterior?

x = GetPict()
y = "d:\carpeta_del_programa " + SubStr(A, RAt( "\", x ) )
Copy File (x) To (y)
Replace foto With y
ThisForm.image1.Picture = y

¿Ya probaste el código?

Caracter