procedure TForm1.Button1Click(Sender: TObject); 
var 
  DBpfad, DBSname, Benutzer, Passwort: string; 
begin 
  Benutzer := 'User'; 
  Passwort := '12345'; 
  Table1.active := false; 
  DBpfad := Table1.Tablename; // oder Pfad zum SQL-Server etc. 
  DBSname := 'DBR_01'; // frei gewählt 
  with Database1 do begin 
    Connected := False; 
    DatabaseName := DBSname; 
    Drivername := 'STANDARD'; // andere besser im Objektmanager einstellen 
    Params.Clear; 
    Params.Add('SERVER NAME=' + DBPfad);  //Wo liegt die DB? 
    Params.Add('USER NAME=' + Benutzer); //Benutzer heißt "User" 
    Params.Add('PASSWORD=' + Passwort); //Passwort ist "12345" 
    Params.Add('LANGDRIVER=BLLT1DE0'); // bei BDE, sonst ISO8859_1 
    Connected := True; 
  end; 
  Table1.DatabaseName := DBSname; 
  Table1.Open; 
end;