procedure   TClientMainForm.SaveUserSetup(IsKey:   Boolean);  
  var  
      Reg:   TRegistry;  
      i:   Integer;  
  begin  
      Reg   :=   TRegistry.Create;  
      try  
          if   Reg.OpenKey(RegPath,   False)   then  
          begin  
              if   IsKey   then  
              begin  
                  FPassWord   :=   UseKeyForm.Edit1.Text;  
                  FDialName   :=   UseKeyForm.ComboBox1.Text;  
                  FHtmlAddr   :=   UseKeyForm.Edit3.Text;  
                  Reg.WriteString('PassWord',   PassWord);  
                  Reg.WriteString('DialName',   DialName);  
                  Reg.WriteString('HtmlAddr',   HtmlAddr);  
              end   else  
              with   ClientDataForm.UsersCDS   do  
              begin  
                  FUserCode   :=   FieldByName('CODE').Value;  
                  FUserName   :=   FieldByName('NAME').Value;  
                  i   :=   Length(FUserName);  
                  while   (i   >   0)   and   (FUserName[i]   =   #32)   do  
                  begin  
                      FUserName[i]   :=   #0;  
                      Dec(i);  
                  end;  
                  FLine   :=   FieldByName('LINE').Value;  
                  FViewClass   :=   FieldByName('VIEWCLASS').Value;  
                  Reg.WriteString('UserCode',   UserCode);  
                  Reg.WriteString('UserName',   UserName);  
                  Reg.WriteString('ViewClass',   ViewClass);  
                  Reg.WriteString('ComputerName',   ComputerName);  
                  Reg.WriteString('Line',   Line);  
              end;  
          end;  
      finally  
          Reg.Free;  
      end;  
  end;