type

TParamString=record
  LabelNameSpace:TUniLabel;
  ID1:integer;
  RadioButton1:TUniRadioButton;
  ID2:integer;
  RadioButton2:TUniRadioButton;
  ID3:integer;
  RadioButton3:TUniRadioButton;
  RadioButton4:TUniRadioButton;
  Panel:TUniPanel;
  CheckedID:integer;  
  Labelstatus:TUniLabel;
end;

  TUniMainModule = class(TUniGUIMainModule)
    IBDatabase: TIBDatabase;
    IBTransaction1: TIBTransaction;
    procedure UniGUIMainModuleCreate(Sender: TObject);

  private
    FgperUser: string;  //глобальная перемення для содержания логина пользователя.

    sParamString:      TParamString;
    { Private declarations }
  public
   property  gperUser:string read FgperUser write FgperUser;
   property  dParamString:array of TParamString read sParamString write sParamString;
   function MyInitializationTIBQerySelect(perIBQuery:TIBQuery):TIBQuery;
    { Public declarations }
  end;