Помогите сделать поиск в базе типа

procedure TForm1.bsSkinButton1Click(Sender: TObject);
begin
with Table1 do begin
IndexName:= 'NUM_TEL';
SetRangeStart;
FieldByName('NUM_TEL').AsString:= bsSkinEdit1.Text;
SetRangeEnd;
 FieldByName('NUM_TEL').AsString:= bsSkinEdit1.Text+'999999';
ApplyRange;
end;
end;

но чтоб выводились данные не только которые начинается на bsSkinEdit1.Text но и производился внутренний поиск в словах .

например: в телефонах 214365 234253 645342 найти все телефоны с цифрой 34 и вывести только их.

Зарание спасибо...