1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var m : TMenuItemInfo;
    h : hMenu;
begin
  h := PopupMenu1.Handle;
  m.cbSize := SizeOf(TMenuItemInfo);
  m.fMask := MIIM_STATE;
  m.fState := MFS_HILITE;
  //das zweite Item, nicht 0-basierend, also PopupMenu1.Items[1]
  SetMenuItemInfo(h,2,false,m);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

VAR I : integer;
begin
  inherited;
  For I:=0 to Pop_BestandsArt.Items.Count-1 do
    Begin
      keybd_event(VK_down, MapVirtualKey(VK_down, 0), 0, 0);
      keybd_event(VK_down, MapVirtualKey(VK_down, 0), KEYEVENTF_KEYUP, 0);
      if Pop_BestandsArt.Items[i].Checked then break;
    end;
end;