It seems you forgot to add at least this:
[pascal] // Turn off D3D lighting, since we are providing our own vertex colors
g_d3d_device.SetRenderState(D3DRS_LIGHTING, iFalse);
[/pascal]
Actually very similar Direct3D starting tutorials from DirectX SDK (in Delphi, of cource) can be found here:simple Delphi Direct3D tutorials :roll: