RadioButton ansprechen

[Borst]

Ich möchte zwei RadioButtons ansprechen.

Code:

procedure TSpielmanager.verarbeiteEingabe(haufen,anzahl:integer);
begin
  if (1 <= anzahl) and
     (anzahl <= FHolz[haufen])
  then
    begin
      FHolz[haufen] := FHolz[haufen] - anzahl;
      if (FHolz[1]+FHolz[2]+FHolz[3] = 0) and [color=red][b](RadioButton1 = True)[/b][/color]
      then
        FBotschaft := [color=red][b]FSpieler+' hat gewonnen!'[/b][/color]
      else
        begin
          if FSpieler = FSpieler1
          then FSpieler := FSpieler2
          else FSpieler := FSpieler1;
          FBotschaft := FSpieler+' ist am Zug.';
        end;
    end
  else
    showMessage('Unzulässige Eingabe!');
end;


procedure TSpielmanager.verarbeiteEingabe(haufen,anzahl:integer);
begin
  if (1 <= anzahl) and
     (anzahl <= FHolz[haufen])
  then
    begin
      FHolz[haufen] := FHolz[haufen] - anzahl;
      if (FHolz[1]+FHolz[2]+FHolz[3] = 0) and [b][color=red](RadioButton2 = True)[/color][/b]
      then
        FBotschaft := [b][color=red]FSpieler-' hat gewonnen![/color][/b]'
      else
        begin
          if FSpieler = FSpieler1
          then FSpieler := FSpieler2
          else FSpieler := FSpieler1;
          FBotschaft := FSpieler+' ist am Zug.';
        end;
    end
  else
    showMessage('Unzulässige Eingabe!');
end;

Muss ich da noch was deklarieren?

[edit=Luckie]Argh, wer packt denn seinen Code in Zitat-Tags? Mfg, Luckie[/edit]