[haunt41]

Использовал RxLib (в папке banners 20 .gif картинок с именами image1.gif ... image20.gif):

Код:

uses 
    Animate, GIFCtrl, RxGIF;

type
    RxGIFAnimator1: TRxGIFAnimator;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Timer1.Interval:=30000;
end;

procedure Timer1Timer(Sender: TObject);
var
  x:integer;
  fp:string;
  Image:TGIFImage;
begin
  x:=RANDOM(20);
  fp:=ExtractFilePath(Application.ExeName)+'banners\image'+IntToStr(x)+'.gif';
  Image:=TGIFImage.Create;
  try
  Image.LoadFromFile(fp);
  finally
  Image.Free;
  end;
end;

Вопрос: Подскажите плиз, как подправить этот код и использовать в нем RxGIFAnimator1 (или иной компонент) для вывода случайной картинки на форму?