procedure TForm1.Button1Click(Sender: TObject);
var
Picture : TPicture;
begin
if Clipboard.HasFormat(CF_PICTURE) then
begin
Picture := TPicture.Create;
Try
Picture.Assign(Clipboard);
Finally
Image1.Picture.Assign(Picture);
Picture.Free;
End;
end;
end;