if Active then // проверяем только у активной формы
        if IsNewData('repair_request') then// и появились новые данные
          UpdateData;                   // то обновляем сетки

procedure TfmControlIT.SelectForm(AFormClass: TUpdatingFormClass);
// Выбор формы для отображения на главной панели
var
  i: integer;
begin
  // Если такая форма уже стоит
  for i := 0 to PanelMain.ControlCount - 1 do
    if PanelMain.Controls[i] is AFormClass then
    begin // Ловим форму
      CurrentForm := TUpdatingForm(PanelMain.Controls[i]);
      CurrentForm.Parent := PanelMain;
      Caption := CurrentForm.Caption;
      CurrentForm.BringToFront;
      exit;
    end;

  // Если эта форма не стояла, то создаем ее и вставляем
  if Assigned(AFormClass) then
  begin
    CurrentForm := AFormClass.Create(fmControlIT); // Создаем форму выбранного класса
    CurrentForm.Hide;
    CurrentForm.BorderStyle := bsNone;
    CurrentForm.Parent := PanelMain;
    Caption := CurrentForm.Caption;
    CurrentForm.Align := alClient;
    CurrentForm.BringToFront;
    CurrentForm.Show;
    CurrentForm.Realign;
    CurrentForm.WindowState := wsMaximized;
    if CurrentForm.CanFocus then
      CurrentForm.SetFocus;
  end;
end;

procedure TfmMain.actRepairRequestExecute(Sender: TObject);
begin
  if fmRepairRequest = nil then
    begin
      fmRepairRequest := TfmRepairRequest.Create(Application);
      fmRepairRequest.IsDialog := false;
    end
  else
    fmRepairRequest.BringToFront;
end;