it's not working... for example:
procedure TForm1.Button1Click(Sender: TObject);
var
gif: TGifImage;
begin
gif := TGIFImage.Create;
gif.LoadFromFile('d:\1.gif');
RichView1.AnimationMode := rvaniOnFormat;
RichView1.AddPictureExTag('', gif, -1, rvvaBaseline, 1);
RichView1.FormatTail;
end;
if i ...