Не снимается флаг Checked в подменю

[DoctorChe]

Делаю так:

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 устанавливается, а старые не снимаются...

 

[DoctorChe]

Проблема решена. Косяк был в ином месте. Не по глазам...