procedure TForm1.Button1Click(Sender: TObject);
var appdir: String;
begin
   appdir := includetrailingpathdelimiter(extractfilepath(application.ExeName));

   with EDBEngine1 do begin
      ConfigPath := appdir;
      Open;
   end;

   with EDBSession1 do begin
      LoginUser := 'Administrator';
      LoginPassword := 'EDBDefault';
      Open;
   end;

   with EDBQuery1 do begin
      DatabaseName := 'Configuration';

      SQL.Text := 'drop database db1 keep contents';
      try ExecSQL; except end;

      SQL.Text := 'create database db1 path '+quotedstr(appdir);
      try ExecSQL; except end;
   end;

   with EDBDatabase1 do begin
      Database := 'db1';
      Open;
   end;

   with KDBTable1 do begin
      SessionName  := 'session';
      DatabaseName := 'database';
      TableName    := 'bericht';
      Open;
      IndexFieldNames := 'aufnr;pruefbericht';
      SetRange([-19972],[-19972]);
      Locate('berichtnr', '126/M19972-3/08', []);
   end;

   with KDBTable2 do begin
      SessionName  := 'session';
      DatabaseName := 'database';
      TableName    := 'bericht';
      Open;
      IndexFieldNames := 'aufnr;pruefbericht';
      SetRange([-19972],[-19972]);
   end;   
end;