RadioButton ansprechen

[Borst]

habs jetzt so

Delphi-Quellcode:

begin
  if (1 <= anzahl) and
     (anzahl <= FHolz[haufen])
  then
    begin
      FHolz[haufen] := FHolz[haufen] - anzahl;
      if (FHolz[1]+FHolz[2]+FHolz[3] = 0) and (RadioButton1.checked = True)
      then
        FBotschaft := FSpieler+' hat gewonnen!'
      else
      begin
      FHolz[haufen] := FHolz[haufen] - anzahl;
      if (FHolz[1]+FHolz[2]+FHolz[3] = 0) and (RadioButton2.checked = True)
      then
        FBotschaft := FSpieler-' hat gewonnen!'
      else
        begin
          if FSpieler = FSpieler1
          then FSpieler := FSpieler2
          else FSpieler := FSpieler1;
          FBotschaft := FSpieler+' ist am Zug.';
        end;
    end
  else
    showMessage('Unzulässige Eingabe!');
end;