Фильтр полей в Delphi

//в комментариях записал то, что я пробовал  
procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text <> '' then begin
//if length(Edit1.Text) > 0 then begin
    ZTable1.Filter := 'Vessel LIKE ' + #39 + Edit1.Text + #39; //фильтрует только по полному слову
  //ZTable1.Filter := 'Vessel LIKE '+ '%' + #39 + Edit1.Text + '%' + #39; эта вроде бы должна помочь, но при ней ничего не выводит
  //ZTable1.Filter := 'Vessel>'''+Edit1.Text+'''' ;
  //ZTable1.Filter := 'Vessel LIKE' + QuotedStr('''');  
  //ZTable1.Filter := 'Vessel>'''+Edit1.Text+'''' ;
    ZTable1.Filtered := true
    end else
    ZTable1.Filtered := false;
end;

ZTable1.Filter := 'Vessel like' + QuotedStr(Edit1.Text);

ZQuery1.Filter := 'Vessel LIKE '+ '%' + #39 + Edit1.Text + '%' + #39;

ZQuery1.Filter := 'Vessel LIKE '+QuotedStr(Edit1.Text+'%');
ZQuery1.Filtered :=true;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if length(Edit1.Text) > 0 then 
 begin
ZQuery1.Filter  := 'Vessel LIKE '+QuotedStr(Edit1.Text+'%');
ZQuery1.Filtered  :=true; //в момент фильтрации
DBGrid1.DataSource.DataSet :=DataSource1; //набор данных ZQuery1;
 end 
else
 begin
 ZQuery1.Filtered := false; //при отмене
 DBGrid1.DataSource.DataSet :=DataSource2;// возвращаем полный набор данных
 end;
end;

DBGrid1.DataSource.DataSet := DataSource1;

 DBGrid1.DataSource := DataSource1;