//před
function _loadEEG(const sObject:TObject):EEG;
begin
  if sObject = EEGButton then
  begin
    result.server:=MyFiles.ValuesExp.EEG1.server;
    result.version:=MyFiles.ValuesExp.EEG1.version;
    result.storeIdentificaiton:=siEEG1;
    result.firstTime:=@FFirstTimeEEG1;
    result.deymedService:=@gEEG1DeymedService;
  end else if sObject = EEG2Button then
  begin
    result.server:=MyFiles.ValuesExp.EEG2.server;
    result.version:=MyFiles.ValuesExp.EEG2.version;
    result.storeIdentificaiton:=siEEG2;
    result.firstTime:=@FFirstTimeEEG2;
    result.deymedService:=@gEEG2DeymedService;
  end else if sObject = EEG3Button then
  begin
    result.server:=MyFiles.ValuesExp.EEG3.server;
    result.version:=MyFiles.ValuesExp.EEG3.version;
    result.storeIdentificaiton:=siEEG3;
    result.firstTime:=@FFirstTimeEEG3;
    result.deymedService:=@gEEG3DeymedService;
  end else if sObject = EEG4Button then
  begin
    result.server:=MyFiles.ValuesExp.EEG4.server;
    result.version:=MyFiles.ValuesExp.EEG4.version;
    result.storeIdentificaiton:=siEEG4;
    result.firstTime:=@FFirstTimeEEG4;
    result.deymedService:=@gEEG4DeymedService;
  end else if sObject = EEGLocalButton then
  begin
    result.server:=MyFiles.ValuesExp.EEGLocal.server;
    result.version:=MyFiles.ValuesExp.EEGLocal.version;
    result.storeIdentificaiton:=siEEGLocal;
    result.firstTime:=@FFirstTimeEEGLocal;
    result.deymedService:=@gEEGLocalDeymedService;
  end;
end;

//po
function _loadEEG1(aServer : string; aVersion : Integer; aStoreIdentification : TStoreIdentification; aFirstTime : Pointer; aSettings : Pointer) : EEG;
 begin
   result.server:=aServer;
   result.version:=aVersion;
   result.storeIdentificaiton:=aStoreIdentification;
   result.firstTime:=aFirstTime;
   result.deymedService:=aSettings;
 end;

  function _loadEEG(const aObject: TObject): eeg;
  begin
    case IndexStr((Sender as TEMGToolButton).Name, ['EEGButton', 'EEG2Button', 'EEG3Button','EEG4Button','EEGLocalButton']) of
      0:
        result := _loadEEG1(MyFiles.ValuesExp.EEG1.server, MyFiles.ValuesExp.EEG1.version, siEEG1, @FFirstTimeEEG1, @gEEG1DeymedService);
      1:
        result := _loadEEG1(MyFiles.ValuesExp.EEG2.server, MyFiles.ValuesExp.EEG2.version, siEEG2, @FFirstTimeEEG2, @gEEG2DeymedService);
      2:
        result := _loadEEG1(MyFiles.ValuesExp.EEG3.server, MyFiles.ValuesExp.EEG3.version, siEEG3, @FFirstTimeEEG3, @gEEG3DeymedService);
      3:
        result := _loadEEG1(MyFiles.ValuesExp.EEG4.server, MyFiles.ValuesExp.EEG4.version, siEEG4, @FFirstTimeEEG4, @gEEG4DeymedService);
      4:
        result := _loadEEG1(MyFiles.ValuesExp.EEGLocal.server, MyFiles.ValuesExp.EEGLocal.version, siEEGLocal, @FFirstTimeEEGLocal, @gEEGLocalDeymedService);
    end;
  end;