[NumLock]

что именно?

добавлено позже

проверил предложеный способ - работает

добавлено еще позже

Код:

uses
  Photoshop_TLB, ComObj, ActiveX, Clipbrd, jpeg,
...
var
  App: _Application;
  jpeg: TJPEGImage;
begin
  OleInitialize(nil);

  if not OpenPictureDialog1.Execute then Exit;

  jpeg:=TJPEGImage.Create;
  try
    jpeg.LoadFromFile(OpenPictureDialog1.FileName);
    Clipboard.Assign(jpeg);
  finally
    jpeg.Free;
  end;

  App:=CreateComObject(CLASS_Application) as _Application;
  App.Load('d:\Documents\Создание иконки iPhone\Иконка iPhone.psd');
  App.ActiveDocument.Paste(False);
end;