I can't get this to work.




I did like this with the username and password, but I don't know how to do with the casts:
Simba Code:
procedure SaveSettings(Sender: TObject);
begin
  P07_PlayerName := Username.TEXT;
  P07_PlayerPass := Password.TEXT;
end;


I'm looping the casts with Inc(I) and until(I = Casts);
Simba Code:
Begin
SafeInitForm;
SafeShowFormModal;
StartUp;
  repeat
    CastCurse;
    AntiBan;
    ProgressReport;
    Wait(RandomRange(100, 200));
    Inc(I);
  until(I = Casts);
end.