[delphi.com.ar]

Probé usar el TGIFImage de las RxLibs, pero también falla porque lo copia al portapapeles como si cada frame del Gif fuera un Bitmap:

 Frames[0].Bitmap.SaveToClipboardFormat(AFormat, AData, APalette);

Habría que investigar como pasarle un GIF al clipboard. Este es el código que hice, por si te interesa:

uses
  RxGIF, Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
var
  GIF: TGIFImage;
  MyFormat : Word;
  AData    : THandle;
  APalette : HPALETTE;
begin
  if OpenPictureDialog1.Execute Then
  begin
    GIF := TGIFImage.Create;
    try
      GIF.LoadFromFile(OpenPictureDialog1.FileName);
      GIF.SaveToClipBoardFormat(MyFormat, AData, APalette);
      ClipBoard.SetAsHandle(MyFormat, AData);
      RxRichEdit1.PasteFromClipboard;
    finally
      GIF.Free;
    end;
  end;
end;

Saludos!