Füge mal begin..end ein
Delphi-Quellcode:
for i := 1 to 20 do Star[i].Create;
begin
Star[1].PosX := ... //wie oben beschrieben
ImgStar1.Left := Star[1].PosX
ImgStag1.Top := Star[1].PosY;
end;
Das BEGIN natürlich noch vor das Create (und natürlich mit der richtigen Variante des Create)
Delphi-Quellcode:
for i := 1 to 20 do
begin
Star[i] := TStar.Create;
Star[i].PosX := ...
Ansonsten kann es nicht schaden, wenn du in den Projektoptionen mal die Überlauf- und die Bereichsprüfung aktivierst.