Konstantenausdruck erwartet

[Delbor]

Hi zusammen
Folgende Prozedure löst den Fehler aus:

Delphi-Quellcode:

procedure TRadioButtonsFrame.RadioButtonPosition;
  var i, x, y: Integer;
begin
  x := FRadioButtonList.Count -1;
  For i := 0 to FRadioButtonList.Count -1 do
  begin
    Case i of
    0:  begin
          FRadioButtonList.Items[i].Left := 12;
          FRadioButtonList.Items[i].Top := 12;
          FRadioButtonList.Items[i].AlignWithMargins := true;
          FRadioButtonList.Items[i].Margins.Top := 5;
          FRadioButtonList.Items[i].Margins.Bottom := 5;
          FRadioButtonList.Items[i].Margins.Left := 80;
          FRadioButtonList.Items[i].Margins.Right := 25;
          FRadioButtonList.Items[i].Top := 12;
        end;
    x:  begin                  // x löst den Fehler aus
          FRadioButtonList.Items[i].Left := 12;
          FRadioButtonList.Items[i].Top := 12;
          FRadioButtonList.Items[i].AlignWithMargins := true;
          FRadioButtonList.Items[i].Margins.Top := 5;
          FRadioButtonList.Items[i].Margins.Bottom := 5;
          FRadioButtonList.Items[i].Margins.Left := 80;
          FRadioButtonList.Items[i].Margins.Right := 25;
        end;
    else
      begin
          FRadioButtonList.Items[i].Left := 12;
          FRadioButtonList.Items[i].Top := 12;
          FRadioButtonList.Items[i].AlignWithMargins := true;
          FRadioButtonList.Items[i].Align := alTop;
          FRadioButtonList.Items[i].Margins.Left := 80;
          FRadioButtonList.Items[i].Margins.Right := 25;
          FRadioButtonList.Items[i].Margins.Bottom := 12;
      end;
    end;

  end;
end;

Zur Zeit enthält der Frame 4 Radiobuttons. Das soll aber je nach Bedarf (und Projekt) anders sein können, ohne viel anpassen zu müssen.
if-Abfragen wollte ich bewusst nicht verwenden. Gibts da trotzdem eine Lösung?

Gruss
Delbor