🚀 go-pugleaf

Baza paradox, pole bazy memo

Chcę wyszukać owoce więc podaję nazwę:

gruszka - w bazie jest gruszka więc znajduje

var
InputString:String;
begin
  InputString:= InputBox('Znajdź owoc, 'Podaj fragment nazwy', '');
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM DANE WHERE (OWOC) LIKE :param1');
  Query1.ParamByName('param1').asString := 
'%'+AnsilowerCase(InputString)+'%';
  Query1.Open;
  end;

Jednak jeżeli w bazie jest "GruszkA" to już nie znajdzie.
szukany ciąg zamieniam na małe litery, ale nie mogę dla pola memo zrobić tak 
samo, czyli
SELECT * FROM DANE WHERE AnsiLowerCace(OWOC) LIKE :param1'
nie zadziała

Jak obejść to i po podaniu "gruszka" wyszukać w bazie wszystkie gruszki, a 
więc:

GruSzKa, GRUSZKA, GrUSzka itp.

Zaznaczam, że chodzi o pole memo, dla którego nie mozna wykonać zamiany 
zawartości na małe znaki.

Uprzejmie prosze o pomoc, bo nerwy mam juz skołatane strasznie i zabawa z 
Delphi zaczyna zamieniać się w katusze :-)