I think it might be this way for a single file:
uses
ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
CommDlg: OleVariant;
begin
CommDlg := CreateOleObject('WIA.CommonDialog');
CommDlg.ShowPhotoPrintingWizard('d:\Image.jpg');
end;
Or the similar for multiple files:
procedure TForm1.Button1Click(Sender: TObject);
var
Files: OleVariant;
CommDlg: OleVariant;
begin
CommDlg := CreateOleObject('WIA.CommonDialog');
Files := CreateOleObject('WIA.Vector');
Files.Add('d:\Image 1.jpg');
Files.Add('d:\Image 2.jpg');
CommDlg.ShowPhotoPrintingWizard(Files);
end;