1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.ExportTables;
var
  path : string;
  parameters : string;
begin

  path := orahome + '\bin\exp.exe';
  parameters := 'prophetmaster/' + mEditPWProphet.Text
              + '@' + mCBDatenbank.Text
              + ' file=' + ExtractShortPathName(mEditExpverz.Text) + '\exp.dmp'
              + ' parfile=' + ExtractShortPathName(GetCurrentDir) + '\exp.par';

  ShellExecute(0, 'open', PChar(path), PChar(parameters), nil, 0);

end;