Filter i ADO tabela, neradi

Imam problem sa Filterom i ADO tabelom, sa filtriranjem integer polja radi, dok sa string poljem ne radi.

ovo radi
AdoTabel1.Filter := 'Tip = '+IntTostr(Value);

dok ovo ne radi
ADOTable1.Filter := 'Naslov = '+QuoteStr(Edit1.text+'*');

Probao sam razne kombinacije i nece da radi. KOd koji ide oko ovih komandi je isti u oba slucaja
ADOTable1.Filtered := True;

dok je (default) FilterOptions := [];

Zasto neradi ono sa stringovima?

Ako necete da mi odgovorite zato sto mislite da nisam pretrazio forum onda se varate.

Ako se neko razume u problematiku molio bih da mi pomogne.

Mislim da te zeza (*), probaj ovo:

adotable1.filtered:=false;
adotable1.filteroptions:=[foCaseInsensitive];
adotable1.filter:='Ime = '+QuotedStr(edit1.text+'*');
adotable1.filtered:=true;

Pozdrav.

evo original metode, koja ne radi

procedure TForm1.Edit1Change(Sender: TObject);
begin
DataModule3.ADOTable1.Filtered := False;
if Length(Edit1.text) > 0 then
begin
DataModule3.ADOTable1.Filter := 'Naslov='''+ Edit1.text+'*''';
DataModule3.ADOTable1.Filtered := True;
end
else
DataModule3.ADOTable1.Filter := '';
end;

Nekome ce mozda biti smesno ovo sto pitam, ali da li je problem u tome sto koristim DataModule?

Da li mozda treba da pise, i da li to ima veze
'Naslov = '''+ Edit1.text+'*''';
ovo sa razmacima kod znaka jednako?