Wow Dzandaa, it works now.
Interesting: GenerateRandomFillColors(Max(seN.Value, 1), Min(Max(seAlpha.Value, 0), 255)); in procedure TForm1.DrawScene;
Was going round in circles with a number of programs I was working on and was getting frustrated with this one (getting random colors). Just finished another animation program (after much stuffing around, Will upload it now).
Thanks Dzandaa for that tweak. Your help was much appreciated.