[Alegun]

Какая-то ересь, должно быть

Код:

...

for i:=0 to 3 do MainMenu1.Items[0].Items[i].Checked:=false;
...
var n:Integer;
begin
 n:= ComboBox1.ItemIndex + 1;
 if UsedCOM <> n then Open_COM(n);
end;