Фильтр по номеру телефона

function only_numbers(str : string) : string;
                                                       
var strBuf : string;
         i : integer;
begin
 strBuf := '';
 for i := 1 to length(str) do //перебираем все символы строки
  if str[i] in ['0'..'9'] then strBuf := strBuf + str[i]; //если очередной символ - цифра, то приписываем  его к итоговой строке
 Result := strBuf;
end;

procedure TDataModule2.QMainCalcFields(DataSet: TDataSet);
var
strin:string;
begin
strin:=copy(DSMain.DataSet.FieldByName('telmob').AsString,2,3)+
       copy(DSMain.DataSet.FieldByName('telmob').AsString,7,3)+
       copy(DSMain.DataSet.FieldByName('telmob').AsString,11,2)+
       copy(DSMain.DataSet.FieldByName('telmob').AsString,14,2)+' '+
       copy(DSMain.DataSet.FieldByName('telrab').AsString,1,2)+
       copy(DSMain.DataSet.FieldByName('telrab').AsString,4,2)+
       copy(DSMain.DataSet.FieldByName('telrab').AsString,7,2)+ ' '+
       copy(DSMain.DataSet.FieldByName('telmob2').AsString,2,3)+
       copy(DSMain.DataSet.FieldByName('telmob2').AsString,7,3)+
       copy(DSMain.DataSet.FieldByName('telmob2').AsString,11,2)+
       copy(DSMain.DataSet.FieldByName('telmob2').AsString,14,2);
 
QMainrrr.AsString:=strin;
end;

procedure TFMain.EdtTelChange(Sender: TObject);
begin
DataModule2.QMain.Close;
DataModule2.QMain.SQL.Clear;
DataModule2.QMain.SQL.Add('SELECT * from telbase where rrr like :tttt order by fio');
DataModule2.QMain.Parameters.ParamValues['tttt']:='%' +EdtTel.Text+'%';
DataModule2.QMain.Open;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  ADOQuery1.Filtered:=false;
  if Length(Edit1.Text)>0 then ADOQuery1.Filtered:=true;
end;
 
procedure TForm1.ADOQuery1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  Accept := Pos(Edit1.Text,DataSet['FieldName'])>0;
end;

DataModule2.QMain.Parameters.ParamValues['tttt']:='%' +EdtTel.Text+'%';