Problema con el IBDATASET

[ingabraham]

Hola tengo una consulta donde tengo campos BLOB , Por tal motivo utilizo un ibdataset

para mostrar el texto de este campo en el evento ongettext

Código Delphi [-]
 Text  :=  IBDataSet1.Fields[2].AsString;

ahora , tengo el sgte codigo , pero la consulta se me pone super lenta y me bloquea el delphi hasta cerrarse, por q, q me falta, como tengo q hacer la consulta

evento onchange del edit de consulta like

Código Delphi [-]
if Ednombre.Text <> '' then
with IBDataSet1 do
begin
 close;
 SelectSQL.Clear;
  if Label1.Caption = 'Forma de Pago' then
  SelectSQL.Add('select FORMA_PAGO,LUGAR_EJECUCION,ACTIVIDADES,OBLIGACIONES_DPTO,GARANTIAS,OBJETO from CONTRATOS where  upper(FORMA_PAGO) Like:nom ');
  if Label1.Caption = 'Lugar de Ejecución' then
    SelectSQL.text:='select FORMA_PAGO,LUGAR_EJECUCION,ACTIVIDADES,OBLIGACIONES_DPTO,GARANTIAS,OBJETO from CONTRATOS where  upper(LUGAR_EJECUCION) Like:nom ';
  if Label1.Caption = 'Actividades' then
    SelectSQL.text:='select FORMA_PAGO,LUGAR_EJECUCION,ACTIVIDADES,OBLIGACIONES_DPTO,GARANTIAS,OBJETO from CONTRATOS where  upper(ACTIVIDADES) Like:nom ';
  if Label1.Caption = 'Obligaciones del Dpto' then
    SelectSQL.text:='select FORMA_PAGO,LUGAR_EJECUCION,ACTIVIDADES,OBLIGACIONES_DPTO,GARANTIAS,OBJETO from CONTRATOS where  upper(OBLIGACIONES_DPTO) Like:nom ';
  if Label1.Caption = 'Garantias' then
    SelectSQL.text:='select FORMA_PAGO,LUGAR_EJECUCION,ACTIVIDADES,OBLIGACIONES_DPTO,GARANTIAS,OBJETO from CONTRATOS where  upper(GARANTIAS) Like:nom ';
  if Label1.Caption = 'Objeto' then
    SelectSQL.text:='select FORMA_PAGO,LUGAR_EJECUCION,ACTIVIDADES,OBLIGACIONES_DPTO,GARANTIAS,OBJETO from CONTRATOS where  upper(OBJETO) Like:nom ';
 

 ParamByName('Nom').AsString := Uppercase( Ednombre.Text+'%');
 open;
end;