Random (1,16777216):=r
So wies ausschaut, willst du eine Zufallszahl zwischen 1 und 16777216 erzeugen...
Random ist aber so definiert:
function Random([Range:integer]);
Du gibst also einen Parameter zu viel an
So dürfte es funktionieren:
r:=floor(Random()*1677215)+1;
MfG Z4ppy