Delphi-Quellcode:
procedure TForm1.MenuItem7Click(Sender: TObject);
begin
//......
TMenuItem(Sender).Checked := True;
//............
end;
Alle MenuItems, die einer (Radio)Gruppe gehören mit einem entsprechendem GroupIndex (alle mussen den gleichen Wert haben.), sollten in einem OnClick Ereigniss so eine Zeile haben, um das schwerzes Punkt richtig gezeigt zu bekommen.