[Doctor_Che]

Делаю так:

Код:

procedure TForm1.N0Name01Click(Sender: TObject);
Var i: Integer;
begin
  for i := 0 to 3
  do begin
  Reopen1.Items[i].Checked:= False;
  end;
  (Sender as TMenuItem).Checked:= True;
end;

почему то новый флаг Checked устанавливается, а старые не снимаются...