Hello,
Using B3D SDK witch Delphi is very simple. Try this :
// DELPHI (any Win32 version) sample for B3D SDK
// Save as "Project1.dpr", compile and run
program Project1;
// some external functions from B3D.DLL
function bbBeginBlitz3D:integer; cdecl; external 'B3D';
procedure bbEndBlitz3D; cdecl; external 'B3D';
procedure bbGraphics3D(Width:integer; Height:integer; Depth:integer=0; Mode:integer=0); cdecl; external 'B3D';
function bbCreateLight(LightType:integer=0; Parent:integer=0):integer; cdecl; external 'B3D';
function bbCreateCamera(Parent:integer=0):integer; cdecl; external 'B3D';
function bbCreateCube(Parent:integer=0):integer; cdecl; external 'B3D';
procedure bbTurnEntity(Entity:integer; p:single; y:single; r:single; global:integer=1); cdecl; external 'B3D';
procedure bbPositionEntity(Entity:integer; x:single; y:single; z:single; global:integer=1); cdecl; external 'B3D';
procedure bbRenderWorld(Tween:single=1.0); cdecl; external 'B3D';
procedure bbFlip(VWait:integer=1); cdecl; external 'B3D';
function bbKeyHit(NumKey:integer):integer; cdecl; external 'B3D';
// demo code ( cube rotation )
var cube : integer;
begin
bbBeginBlitz3D;
bbGraphics3D(800,600);
bbCreateCamera;
bbCreateLight;
cube:=bbCreateCube;
bbPositionEntity(cube,0,0,4);
repeat
bbTurnEntity(cube,1,2,3);
bbRenderWorld;
bbFlip;
until bbKeyHit(1)=1; // esc
bbEndBlitz3D;
end.