Zapisz plik pod taką sama nazwą, ale innym rozszerzeniem.

SaveDialog1.FileName := ChangeFileExt(ExtractFileName(OpenPictureDialog1.FileName), '.pdf');