Здравствуйте, Master135!
а вот у меня работет и даже независимо от того копирую я внутри своей программы либо из другой вставляю.
в uses также стоят 2 модуля jpeg и clipbrd
твоя ошибка в том что ты через Graphic вставлаешь а он поддерживает только bitmap. А так все правильно смотри приложение доступно понятно там где ты пишешь 100 я поставил 0 и разницы никакой

Приложение:
procedure TForm1.Button1Click(Sender: TObject);begin Clipboard.Assign(Image2.Picture); Image1.Picture.RegisterClipboardFormat(0, TJpegImage); Image1.Picture.Assign(Clipboard);end;procedure TForm1.FormCreate(Sender: TObject);begin Image2.Picture.LoadFromFile(‘d:\test.jpg‘);end;

Здравствуйте, Master135!
Предлагаю вашу проблему решать так:
1. Получить адрес изображения из буфера
2. Загрузить это изображение в Image из файла

Возможно, это не совсем то, что Вы хотели, но зато работает. Правда, было бы очень неплохо проверять расширение файла из буфера, но это уже по вашему усмотрению!
Надеюсь помог.


Приложение:
uses Clipbrd, ShellAPI, Jpeg;procedure TForm1.Button1Click(Sender: TObject);var buffer: array [0..MAX_PATH] of Char;begin if not Clipboard.HasFormat(CF_HDROP) then Exit; Clipboard.Open; try begin DragQueryFile(Clipboard.GetAsHandle(CF_HDROP), 0, buffer, SizeOf(buffer)); Image1.Picture.LoadFromFile(buffer); end; finally Clipboard.Close; end;end;

Здравствуйте, Master135!
Нужно в строку USES включить модуль JPEG - это специальный модуль для разборок с картинками этого формата.