ADOConnection1.LoginPrompt:=false;
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;'+
        'Password=' + EditPassword.Text +';'+
        'Persist Security Info=True;'+
        'User ID=' + EditUsername.Text + ';'+
        'Initial Catalog='+ EditInitialCatalog.Text + ';'+
        'Data Source=' + EditDataSource.Text + ';'+
        'Use Procedure for Prepare=1;'+
        'Auto Translate=True;'+
        'Packet Size=4096;'+
        'Workstation ID=' + EditWorkStationID.Text + ';'+
        'Use Encryption for Data=False;'+
        'Tag with column collation when possible=False;'+
        'Network Address='+EditServerIP.Text+';';
        ADOConnection1.ConnectionTimeout:= 30 ;
        ADOConnection1.Open