Kleines Problem bei Tic Tac Toe Spiel

[Jay15]

Ich hab es jetzt doch geschafft! Hab einfach einen else-Befehl genommen.

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if RadioButton1.Checked=True then
    begin
    Button1.Caption:='X';
    Button1.Enabled:=False;
    RadioButton2.SetFocus;
    end
  else
    begin
    Button1.Caption:='O';
    Button1.Enabled:=False;
    RadioButton1.SetFocus;
    end;
Gewinner;  
end;

Ich würde jetzt gerne noch etwas wissen. Wie kann ich verhindern, dass nachdem das Spiel zuende ist noch ein Button gedrückt wird?