Проблемма с DelphiX

Нижеследующая программа должна, поидее, выводить в форму картинку из test.bmp, но выводит только синий фон.

Подскажите пожалуйста, что я делаю не так?

----------

unit Unit1;

interface

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

type
Tfrmstrt = class(TDXForm)
prim: TDXDraw;
maintim: TDXTimer;
grap: TDXImageList;
procedure FormCreate(Sender: TObject);
procedure maintimTimer(Sender: TObject; LagCount: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmstrt: Tfrmstrt;

implementation

{$R *.dfm}

{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}

procedure Tfrmstrt.FormCreate(Sender: TObject);

begin
grap.Items.Clear;
grap.Items.Add;
grap.items.Items[0].Picture.LoadFromFile('test.bmp');
prim.Initialize;
prim.Surface.Fill(65535);
end;

procedure Tfrmstrt.maintimTimer(Sender: TObject; LagCount: Integer);
begin
grap.items.items[0].draw(prim.Surface,0,0,0);
prim.Flip;
end;


end.