unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DXDraws, DXClass;

type
  TMainForm = class(TForm)
    procedure DXTimerTimer(Sender: TObject; LagCount: Integer);
      private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.DXTimerTimer(Sender: TObject; LagCount: Integer);
const
 n:integer =0;
begin
  if not DXDraw.CanDraw then Exit;
  DXDraw.Surface.Fill(15);
     DXImageList.Items[n].Draw(DXDraw.Surface,50,50,0);

  DXDraw.Flip;
   if n < 5 then inc(n) else n:=0;
      end;

end.