DBExpress dynamically connects to SQL-Server

Procedure TForm1.Button1Click (Sender: TObject );
Var
TheCNN: TSQLConnection; // defines the connection. DB and SqlExpr must be referenced.
Begin
TheCNN: = TSQLConnection. Create (self );
TheCNN. LoginPrompt: = False; // close the logon window
TheCNN. Params. Clear;
TheCNN. DriverName: = 'mssql ';
TheCNN. GetDriverFunc: = 'getsqldrivermssql ';
TheCNN. LibraryName: = 'dbexpmss. dll ';
TheCNN. VendorLib: = 'oledb ';
// -------- Set the connection parameter -----------
TheCNN. Params. Append ('schemaoverride = sa. dbo ');
TheCNN. Params. Append ('drivername = mssql ');
TheCNN. Params. Append ('hostname = LocalHost \ mssql'); // This is the name of my SQL _Server server.
TheCNN. Params. Append ('database = KinSunKTV '); // SQL _Server DataBase Name
TheCNN. Params. Append ('user _ Name = Sa'); // SQL _Server User Name
TheCNN. Params. Append ('password = kinsun'); // SQL _Server Password
TheCNN. Params. Append ('blobsize =-1 ');
TheCNN. Params. Append ('errorresourcefile = ');
TheCNN. Params. Append ('localecode = 66661 ');
TheCNN. Params. Append ('mssql TransIsolation = readcommited ');
TheCNN. Params. Append ('OS Authentication = false ');
TheCNN. Open;
ShowMessage ('Connection successful ');
End;