Empezando con Delphi

[Toretto]

Pues sigo con la duda, en mi bbdd tengo la imagen almacenada en un campo blob y tengo que pasarla a un fichero jpg. Utilizo el siguiente código pero no me crea el archivo:

cadena1:= 'Select foto from persona where (nombre = 'David')';
QBuscar.Sql:= cadena1;
QBuscar.sql.savetofile('c:\prueba.jpg');

Estoy utilizando mal la función savetofile???


Gracias