Ошибка при событии GIF.Free

[Shouldercannon]

procedure TForm1.Button1Click(Sender: TObject);
var
GIF: TGIFImage;
begin
GIF := TGIFImage.Create;
  GIF.LoadFromFile('oe.gif');
    RichView1.AddPicture(GIF);
      RichView1.Format;
        GIF.Free;
end;

Возникает ошибка
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00403432 in module 'Project1.exe'. read of address 00000027'. Process stopped. Use Step or Run to continue.

[Kotofff]

Все просто. После RichView1.AddPicture(GIF) - GIF добавляется в объекты самого RichView, т.к. ,если ты читал хоть какой-нить мануал по компоненту, всё что отображено в RichView есть объекты, даже тест или одно слово выкрашенное 4-мя цветами - это 4 разных объекта в RichView.
Для, например, вывода в RichView разных GIF-ок нужно для каждой создать объект перед передачей его в RichView ...
Т.е. :

procedure TForm4.Button1Click(Sender: TObject);
var
GIF1, GIF2: TGIFImage;
begin
  GIF1 := TGIFImage.Create;
  GIF2 := TGIFImage.Create;
  GIF1.LoadFromFile('01.gif');
  GIF2.LoadFromFile('02.gif');
  RichView1.AddPictureEx('Смайл1',GIF1, 0, rvvaAbsMiddle);
  RichView1.AddPictureEx('Смайл2',GIF2, 0, rvvaAbsMiddle);
  RichView1.Format;
end;

И не надо ничего высвобождать ! RichView сам все высвободит когда прога закроется. Т.е. когда сам уничтожится.