I'm trying to use Asphyre xtreme to create a tileset engine, and I'm having some trouble getting started. Here's my code so far. I'm trying to load a file, then have it display the entire file to the screen, just to make sure it's working right. I've gotten past all the bugs that keep it from compiling or generate runtime errors, but now all I get is a blank form instead of an image of the picture I loaded

Can anyone tell me what I'm doing wrong?

Code:
unit bigmap;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ExtCtrls, Dialogs, //system libraries
   AsphyreImages, AsphyreSubsc, AsphyreDevices, MultiCanvas, AsphyreTimers, AsphyreDef, Asphyre2D, AsphyreCanvas; //Asphyre Xtreme libraries

type
   TForm2 = class(TForm)
    AsphyreImages1: TAsphyreImages;
    dlgOpen: TOpenDialog;
    AsphyreDevice1: TAsphyreDevice;
    AsphyreTimer1: TAsphyreTimer;
    AsphyreCanvas1: TAsphyreCanvas;
    procedure AsphyreDevice1Render(Sender: TObject);
    procedure FormCreate(Sender: TObject);
      procedure FormShow(Sender: TObject);
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
   assert(AsphyreDevice1.Initialize());
end;

procedure TForm2.FormShow(Sender: TObject);
var
   ini: TIniFile;
   filename: string;

const
   tileset: tpoint = (x: 480; y: 256);
   tile: tpoint = (x:16; y:16);

begin
   if dlgOpen.Execute then
      filename := dlgOpen.FileName;
      loadChipset(filename, tile, tileset, asphyreimages1); //routine I set up to load the image.  It works fine
      assert(asphyredevice1.Render(0, false));
      assert(asphyredevice1.Flip);

   //end if
end;

procedure TForm2.AsphyreDevice1Render(Sender: TObject);
begin
   asphyrecanvas1.TexMap(asphyreimages1[0], pBounds4(0, 0, 480, 256), clWhite4, tpattern(0), fxNone);
end;

end.
Mason