Vereinfachung bei MainMenü mit Hackerl (check)

[ferby]

Hallo,

gibt es eigentlich eine möglichkeit diesen Quellcode zu verkürzen??
Ein Schleife??
Mir fällt nämlich nichts ein....

Delphi-Quellcode:

procedure TForm1.KIClick(Sender: TObject);
begin
  // Check von allen entfernen
  ki_SehrLeicht.Checked:=false;
  ki_Leicht.Checked:=false;
  ki_normal.Checked:=false;
  ki_schwer.Checked:=false;
  ki_sehrschwer.Checked:=false;

  // Check beim Sender machen
  if sender=ki_SehrLeicht then ki_SehrLeicht.Checked:=true
  else if sender=ki_leicht then ki_Leicht.Checked:=true
  else if sender=ki_normal then ki_normal.Checked:=true
  else if sender=ki_schwer then ki_schwer.Checked:=true
  else ki_sehrschwer.Checked:=true;
end;

Es handelt sich hierbei um ein TMenueItem das fünf unter TMenueItem hat.
Der Benutzer soll einfach einstellen können wie stark die KI ist,
vor die gewählte Schwierigkeit kommt ein Hackerl.....


Ferby