if Edit2.Text <> '' then
begin
Adodst.Filtered := False;
// Adodst.Filter := CBAlan.Text + ' like ''' + Edit2.Text + '%''';
Adodst.Filter := CBAlan.Text + ' like '+QuotedStr(Edit2.Text + '%');
Adodst.Filtered := True; //QuotedStr('%'+Edit2.Text + '%');
end
else
begin
if Adodst.Filtered then
Adodst.Filtered := False;
end;