Estou ficando louco com isso..Retornar Foto..Só voceis

Amigos como eu retono uma imagem....pois eu gravo o caminho...quando consulto para retornar os dados não consigo fazer retornar a foto...
me ajudem



VAR
s: string;
begin
QProdutos.Close;
QProdutos.SQL.Clear;
if Trim(editNome.Text)= ´´ then
begin
QProdutos.SQL.Add(´select * from Produtos´);
QProdutos.Active := true;
editNome.SetFocus;
Abort;
end
else
begin
QProdutos.SQL.Add(´select * from Produtos WHERE Nome LIKE ´+ QuotedStr(´´+editNome.Text+´¬´+´´));
QProdutos.Open;
frmCadProduto.editCodigo.Text := QProdutos.FieldByName(´CODIGO´).AsString;
frmCadProduto.editNomeProduto.Text := QProdutos.FieldByName(´Nome´).AsString;
(´DESCONTO´).AsString;
frmCadProduto.editComissao.Text := QProdutos.FieldByName(´COMISSAO´).AsString;
frmCadProduto.editEstoque.Text := QProdutos.FieldByName(´ESTOQUE´).AsString;
frmCadProduto.editMinimo.Text := QProdutos.FieldByName(´MINIMO´).AsString;
frmCadProduto.editFracao.Text := QProdutos.FieldByName(´FRACAO´).AsString;
frmCadProduto.editEstoqueFracao.Text := QProdutos.FieldByName(´ESTOQUE_FRACAO´).AsString;
frmCadProduto.editDeposito.Text := QProdutos.FieldByName(´DEPOSITO´).AsString;
frmCadProduto.editMinimoDepartamento.Text := QProdutos.FieldByName(´MINIMO_DEP´).AsString;
frmCadProduto.cmbAtivoInativo.Text := QProdutos.FieldByName(´SITUACAO´).AsString;
frmCadProduto.editCusto.Text := QProdutos.FieldByName(´CUSTO´).AsString;
frmCadProduto.editIPI.Text := QProdutos.FieldByName(´IMPOSTO´).AsString;
frmCadProduto.editMargens.Text := QProdutos.FieldByName(´MARGENS´).AsString;
frmCadProduto.editDespesas.Text := QProdutos.FieldByName(´DESP_ADM´).AsString;
frmCadProduto.editVenda.Text := QProdutos.FieldByName(´VENDA´).AsString;
frmCadProduto.editPrecoPromocao.Text := QProdutos.FieldByName(´PRECO_PROMOCAO´).AsString;
frmCadProduto.foto.Picture := QProdutos.FieldByName(´Foto_Produto´).AsString;
end;


Me Ajudem por favor...me ajudem...