Problemas con Clipboard

[[escafandra]]

Prueba así:

Código Delphi [-]
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;

Saludos.