Danke euch, himitsu und Ralf Kaiser,
manchmal ist es das ganz Einfache, was man übersieht:
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
begin
SaveTextFileDialog1.InitialDir:=extractfilepath(OpenTextFileDialog1.FileName);
if SaveTextFileDialog1.Execute then
...
...
Dasselbe nochmal für SaveTextFileDialog2 und schon habe ich, was ich wollte.