Ninguém me ajudou ainda!!!!

bom pra procurar faiz assim:

****
procedure busca(oque_vc_quer_procurar: string; numero_caracteres_mostrar: integer);
var
temp, resultado: string;
i: integer;
begin
query.sql.text:= ´select campo_blob from tabela where (campo_blob like :palavra)´;
query.parambyname(´palavra´).asstring:= ´¬´ + oque_vc_quer_procurar + ´¬´;
query.active:= true;
if not query.eod then
begin
resultado:= query.fieldbyname(campo_blob´).asstring;
i:= pos(oque_vc_quer_procurar, resultado);
temp:= copy(oque_vc_quer_procurar, i - (numero_caracteres_mostrar div 2), i + (numero_caracteres_mostrar div 2));
memo.text:= resultado;
label_resultado.text:= temp;
end;
end;
****

o memo fica oculto (visible:= false) e qdo o cara clicar no label vc mostra o memo,
mais ou meno isso
quanto a mostrar os dados e tudo mais, vc tem que implementar do seu jeito.
o que importa é a query de procura
a variável resultado contém todo o valor campo;
e a variável tempo contém a parcial;

até