Exibir imagem

[adassoft]

Estou concluindo um programa para controle de bibliotecas. No cadastro do acervo há um campo tipo imagem para armazenar a imagem da capa o livro, até ai tá ótimo, porém eu quero que no formulário de empréstimo, depois que o usuário informar o código do livro seja mostrado alguns dados do livro, e entre eles que mostrar a imagem da capa.

Lembrando que a imagem está em um campo "Extra" que vem da tabela acervo. Sei que a imagem existe no cadastro, pois quando acesso o formulário de acervo ele exibi a imagem normalmente.

Alguém poderia me ajudar nessa tarefa.

[adassoft]

Depois de vários teste cheguei a uma solução.
Não foi possível mostrar a imagem no campo extra, não sei por qual o motivo. A solução foi ir buscar a imagem diretamente na tabela Acervo2.

O código para exibi a imagem ficou assim:
Image1.Picture := nil;
TabGlobal.DACERVO2.Abrir;
TabGlobal.DACERVO2.AtualizaSQL;
TabGlobal.DACERVO2.First;
While not TabGlobal.DACERVO2.Eof do
begin
if TabGlobal.DACERVO2.CODTOMBAMENTO.Conteudo = TabGlobal.DEMPRESTIMOITENS.CODTOMBAMENTO.Conteudo then
begin
Image1.Picture.Assign(TabGlobal.DACERVO2.FieldByName('CAPA'));
end;
TabGlobal.DACERVO2.Next;
end;