[zip000]

Njey, все просто

Код:

var
  i : Integer;
......................................
  if SaveDialog1.Execute then
    for i := 0 to SaveDialog1.Files.Count - 1 do begin
      CopyFile (ИСХОДНЫЙ_ФАЙЛ, Pansichar(SaveDialog1.Files[i]), false);
    end;