[pesi]

в uses добавь ClipBrd

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Clipboard.HasFormat(CF_METAFILEPICT ) then
image1.Picture.Metafile.Assign(Clipboard) else
showmessage('Буфер обмена не содержит нужный формат данных!!!');
end;