Buscar texto indistintamente en Mayusculas o minusculas

[Jose Manuel]

Hola, quisiera saber como puedo indicar que en una busqueda de datos no distinga entre Mayúsculas o Minúsculas, en un campo Memo.

En el ejemplo siguiente trabaja bien con un campo texto como es "RESUMEN", pero como puedo hacer para que en el campo TEXTO que es un "memo", la busqueda de datos no distinta mayusculas o minusculas, ya que si pongo
fDatabase.q_pre.SQL.add('or UPPER(TEXTO) LIKE :buscar') me da un error del tipo Mismatch.

Estoy trabajando con Dbase, Delphi 6.

Un saludo
Jose Manuel
...................................................................................
procedure TfRegistro.buscar_por_textoClick(Sender: TObject);
var
aBuscar: string;
ClickedOK: Boolean;
begin
aBuscar := 'escriba texto a buscar';
ClickedOK := InputQuery('Texto a Buscar', 'texto:', aBuscar);
if ClickedOK then
begin
aBuscar:=UPPERCASE(aBuscar);
fDatabase.q_pre.active:=false;
fDatabase.q_pre.SQL.clear;
fDatabase.q_pre.SQL.add('Select * from PREGUNTA');
fDatabase.q_pre.SQL.add('where UPPER(RESUMEN) LIKE :buscar'); // BIEN
->fDatabase.q_pre.SQL.add('or TEXTO LIKE :buscar'); // <-- CAMPO MEMO
fDatabase.q_pre.SQL.add('order by ID');
fDatabase.q_pre.Params[0].AsString := '%'+abuscar+'%';
fDatabase.q_pre.active:=true;
end;
end;