Wie wird aus einem String eine Anweisung?

[Sir Rufo]

Oder man schreibt es noch kürzer

Delphi-Quellcode:

procedure TForm4.Button11Click(Sender: TObject);
begin
  erg := strtoint(edit1.text)+zahl1;

  circle1a.visible := Between(erg,1,1);
  circle2a.visible := Between(erg,1,2);
  circle3a.visible := Between(erg,1,3);
  circle4a.visible := Between(erg,1,4);
  circle5a.visible := Between(erg,1,5);
  circle6a.visible := Between(erg,1,6);
  circle7a.visible := Between(erg,1,7);
  circle8a.visible := Between(erg,1,8);
  circle9a.visible := Between(erg,1,9);
  circle10a.visible:= Between(erg,1,10);
end;