Und dies zweite!
Das Object TBall gibt es noch nicht. Du musst es erst erzeugen!
Delphi-Quellcode:
for i := 0 to Length (Ball) do
Ball[i] := TBall.BallInit(Random(20),Random(Main.ClientHeight-r),Random(Main.ClientWidth-r),Random(Main.ClientHeight+r),Random(Main.ClientWidth+r),clBlack,clBlack);
Und die Optionen würde ich in einem Global def. Record ablegen. Den der Optiondialog ändert.
Als könnte man diesen Dialog dann wieder Dynamisch rufen.
Delphi-Quellcode:
with TOptions.Create(Self) do
try
ShowModal;
finally
Free;
end;