Code:
procedure InitializeObjects(Created:Boolean)
const Colors : array [1..6] of TGLColor = (clrCoral, clrScarlet, clrSeagreen, clrSlateBlue,  clrTurquise,  clrCornFlowerBlue);
var i : integer;
begin
  for i:= 1 to 6 do begin
    If not Created then
      GLShape[i] := GLScene1.Objects.AddNewChild(TGLDodecahedron)
    GLShape[i].Position.X := -7 + i*2;
    GLShape[i].Position.Y := 4;
    GLShape[i].Material.FrontProperties.Diffuse := Colors[i];
  end;
end;
First error: My colors code... How can I get that to work?
[Error] Unit2.pas(83): Incompatible types: 'TGLColor' and 'TVector4f'

Second: I assume I am doing something wrong when creating the shapes...
[Error] Unit2.pas(8: Incompatible types: 'TGLDodecahedron' and 'TGLBaseSceneObject'

Help!

I got the addnewchild code from the caperaven.co.za site (South African :! but it doesn't seem to work right.

Thanks in advance.