Форма подключения к MSSQL

procedure TFConnection.ButLoginClick(Sender: TObject);
var
  st1:string;   
  st2:string;  
  st3:string;    
  st4:string;   
begin
  st1:=ComboBox1.Text; //имя сервера
  st2:=Edit1.Text;//логин
  st3:=Edit2.Text;//пароль
  st4:=ComboBox2.Text;//БД
  DataModule1.ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User   ID='+st2+';Initial Catalog='+st4+';Data Source='+st1;
  DataModule1.ADOConnection1.Connected := true;
end;

ADOConnection1.LoginPromt:=false;

function SQLServ_GetServerDBList(SQLServer: string; ListDB: TStrings): boolean; 
begin
  result := true;
  ListDB.Clear;
  with TADODataSet.Create(nil) do
    try
      ConnectionString := 'Provider=SQLOLEDB;Persist Security Info=false'+
                         ';User ID=sa;Data Source='+SQLServer;
      CommandText := 'use master select * from sysdatabases';
      try
        Open;
        while not EOF do
          begin ListDB.Add(Fields[0].AsString); Next; end;
        Close;
      except
       result := false;
      end;
    finally
      Free;
    end;
end;

function MoyaKulnayaFunkciya(SQLServer: string; ListDB: TStrings): boolean;