Вывод случайной картинки, rxLib

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;