Здравствуйте, x-net, Вы писали:
Хм. Дивлюсь я — и почему никто хелп не читает?
Попробуй так:

procedure TForm1.bsSkinButton1Click(Sender: TObject);
begin
  with Table1 do begin
    Filter:= 'NUM_TEL=''*'+bsSkinEdit1.Text+'*''';
    Filtered:= True;
  end;
end;