程序自动配置odbc代码，可以连接，但数据库有密码时不知道如何提交密码

网上找的代码，经过简单改造程序可以自动配置odbc，数据库无密码时可以连接，但数据库有密码时不知道如何提交密码，请各位朋友帮忙查看一下，如何把edit3里边的密码写到odbc的登录数据库密码里边，先谢了。procedure Tpara_F.Button1Click(Sender: TObject);
var
  registerTemp: TRegistry;
  bData : array[ 0..0 ] of byte;
  ip,username,pass:string;
begin
  ip:=edit1.Text;
 
  username:=trim(edit2.Text);
  pass:=trim(edit3.Text);
  registerTemp:= TRegistry.Create;
  with registerTemp do
       begin
      RootKey:=HKEY_LOCAL_MACHINE;
            
      if OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then
     begin 
     WriteString( 'MyAccess', 'SQL Server' );
           end
         else
           begin
  
   exit;
      end;
      CloseKey;
      if OpenKey('Software\ODBC\ODBC.INI\MyAccess',True) then
     begin
     WriteString( 'Database', 'kq' );
     
     WriteString( 'Driver', 'C:\WINNT\System32\SQLSRV32.dll' );
     
     
     WriteString( 'LastUser', 'kq' ); 
   
     WriteString( 'Server', ip );
     WriteString( 'Trusted_Connection', 'No' );
     bData[0] := 0;
     WriteString('UserName',username); 
     WriteString('Password',pass);  
     WriteBinaryData( 'Exclusive', bData, 0 );
     
     WriteBinaryData( 'ReadOnly', bData, 0 );
     
           end
         else
           begin
  
   exit;
      end;
      CloseKey;        
      Free;
       end;
   login_f.Show;end;