procedure SearchByPhoneD(const sTel: string; AOwner: TComponent);
Var
 T : TUniTabSheet;
 frdFindPhone1: TfrdFindPhone;
begin


  if Trim(sTel).IsEmpty then
  begin
    MessageBox('вы не ввели номер телефона');
    exit;
  end;


  T := TUniTabSheet.Create(AOwner);

    T.PageControl := fmMain.pgMain;
    T.Caption     := constCheckPhone + ': ' + sTel;
    T.ImageIndex  := 8;
    T.Closable    := True;
    t.OnClose     := fmMain.TabSheetClose;
    T.Name        := 'UniTabSheet_' + t.PageIndex.ToString;

      // заменяем кнопку на более крупную, см. CSS
    if T.Closable then
      T.JSInterface.JSAddListener(constAfterLayout, functAddClsCustomSheet);

    UniMainModule.SessionActiveForm := T.Caption;

    frdFindPhone1 := TfrdFindPhone.Create(T);
    frdFindPhone1.Name   := 'frdFindPhone' + T.PageIndex.ToString;
    frdFindPhone1.Parent := T;

    frdFindPhone1.Phone  := sTel;//SetPhone() здесь frdFindPhone.Show;
end;

procedure SetPhone(...);
begin
...
...
qSearchPhone.open;

  if qSearchPhone.RecordCount = 0 then
  begin
    MessageBox('объявление с таким номером не найдено');
    qSearchPhone.close;
    (self.Owner as TUniTabSheet).Free;// уничтожаем вкладку
  end
  else
  begin
    fmMain.pgMain.ActivePage := self.Owner as TUniTabSheet;
    BeforCreate;
    self.Show;
  end;
end;