[Renegoras]

Gracias por la respuesta amigo ecfisa.
Logre implementar el codigo y puedo llamar la imagen de manera correcta:

DataSource1->DataSet->Active=False;
Buscar_Usuario->Close();
Buscar_Usuario->Params->Items[0]->Value=Edit1->Text;
Buscar_Usuario->Open();
if(Buscar_Usuario->RecordCount !=0)
{
DataSource1->DataSet->Active=True;
FieldToImage(DataSource1->DataSet->FieldByName("fotos"), Image1);

}
else

{
ShowMessage("No existe el registro");

}


Sin embargo debo molestarte con una duda mas, puesto que quisiera ingresar la imagen junto con un nombre y algún otro dato mas (CI, Email, etc)...........no he logrado hacer eso, puesto que con:

DataSource2->DataSet->Edit();
ImageToField(Image1, DataSource2->DataSet->FieldByName("fotos"));
DataSource2->DataSet->Post();

solo he logrado que el programa corra apuntado el DataSource a la Tabla, pero solo modifica la imagen del primer registro

He tratado de utilizar un Query con una consulta SQL(insert into fotos (nombre,fotos) values(:nombre,:fotos)).....pero no logro enlazar esta consulta con el código que me proporcionarte de manera que guarde los datos junto con la imagen.

PD: He logrado mostrar la Imagen cuando está esta en la base de datos y no así cuando solo está la dirección....me sale un error #53 jpg..algo asi.

Espero no molestarte mucho con estas preguntas.................Muchas gracias