1 procedure TFmMonitor.ActShowSetExecute(Sender: TObject); 2 begin 3 Show_setting(viewM, Self.Name); 4 end;