I got 4700 in 8 bit without recompile.
1300 in 16 bit with recompile - Delphi 4
1100 in 32 bit with recompile - Delphi 4

Although I'm not sure this method would be so useful when it comes to animating and scrolling since all tiles would need a redraw (All/Some depending on whether you used a dirty rectangles method). I've quite enjoyed this little experiment and shall bear you guys in mind when my latest project gets to the open testing stage.