das stichwort, nach dem du suchen solltest, lautet
GetShellFolder.
Damit erfährst du den Pfad des Desktops (CSIDL) und übergibst ihn via SD.InitialDir := xxx an den SaveDialog.
Frage: Warum speicherst du dein Bild nicht einfach via Image1.Picture.SaveToFile(...)?
Edit: Link hinzugefügt.