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.

[madiazg]

Gracias escafandra por tu interés pero sigue el mismo problema y con el mismo mensaje de error.

Con la imagen más pequeña se ejecuta correctamente pero no así cuando intento copiar una imagen de un tamaño mayor como la del ejemplo que indiqué en mi primer mensaje.

Saludos...
Miguel Angel