EMTさん、こんにちは。

どのような環境下で行いたいのか判らないですが、
元のJpegファイルのPathが通っているのであれば
Win32APIの「CopyFileA」を使って出来そうですね。

PBだけでやろうとした場合は、こんな感じで･･･
---
int  li_ret
string ls_rpath, ls_rfname
string ls_wpath, ls_wfname

li_ret = GetFileOpenName( \"取得\", ls_rpath, ls_rfname, \"jpg\", \"画像 (*.jpg),*.jpg\" )
IF li_ret <> 1 THEN return

li_ret = GetFileSaveName( \"出力\", ls_wpath, ls_wfname, \"jpg\", \"画像 (*.jpg),*.jpg\" )
IF li_ret <> 1 THEN return

int  li_rfno, li_wfno
blob ls_buffer

li_rfno = FileOpen(ls_rpath, StreamMode!, Read!,  LockReadWrite!, Append!)
li_wfno = FileOpen(ls_wpath, StreamMode!, Write!, LockReadWrite!, Replace!)

IF li_rfno < 0 OR li_wfno < 0 THEN
FileClose(li_rfno)
FileClose(li_wfno)
return
END IF

DO WHILE 0 < FileRead(li_rfno, ls_buffer)
FileWrite(li_wfno, ls_buffer)
LOOP

FileClose(li_rfno)
FileClose(li_wfno)
---
一応、中身の全く同じJpegファイルの複写が出来ました。

これが、Pictureオブジェクトに読み込んだ画像を、
元のファイルを使う事無く別名で保存させよう･･･
となると、ちょっと方法が判らないですね。