var
 FoundRec: Boolean;
 FndEdit: string;
 Fld_0: TField;
begin
FndEdit := AnsiLowerCase(txtKonSearch.Text);
FoundRec := False;
         begin
           Fld_0 := DM.tbPhone.FieldByName('name');
           if txtKonSearch.Text <> '' then
           begin
             DM.dsMain.First;
             while not DM.dsMain.Eof do
             begin
               if Fld_0.IsNull then
               begin
                 DM.dsMain.Next;
                 Continue;
               end;
               if Pos(FndEdit, AnsiLowerCase(Fld_0.AsString)) > 0 then
               begin
                 FoundRec := True;
                 break;
               end;
               DM.dsMain.Next;
             end;

             if not FoundRec then
             begin
               DM.dsMain.First;
               Application.MessageBox(PChar('Абонент <' + txtKonSearch.Text +
                 '> не найден'), 'Информация', MB_OK + MB_ICONINFORMATION);
             end;
           end;