Динамически создаваниемое меню и checked

[phphel]

Есть код, который создает PopUpMenu динамически.

procedure TForm1.FPopupMenuPopup(Sender: TObject);
Var TX,TY,TZ :Integer;
     FMenuItem:TMenuItem;
     Pos      :TPoint;

 Begin
  GetCursorPos(Pos);
  Tx:=Pos.X;
  Ty:=Pos.Y;

  FPopupMenu:= TPopupMenu.Create(Self);
  FPopupMenu.AutoPopup:=False;
  FPopupMenu.Tag:= 0;
  For TZ:=1 To 23 Do
   Begin
    FMenuItem := TMenuItem.Create(Self);
    With FMenuItem Do
     begin
      Tag     := TZ;
      OnClick := FPopupMenuClick;
      Caption := IntToStr(TZ);
      Hint    := 'HINT '+IntToStr(TZ);
     End;
    FPopupMenu.Items.Add(FMenuItem)
   End;

  FPopupMenu.Popup(TX,TY);
  Application.ProcessMessages;
  If FPopupMenu.Tag<>0 Then
   Begin
    Form1.Caption:=FPopUpMenu.Items[FPopupMenu.Tag-1].Hint;
   End;


 FPopupMenu.Free;
 FPopupMenu:= nil;
end;

procedure TForm1.FPopupMenuClick(Sender: TObject);
begin
  with Sender as TMenuItem do ShowMessage(Caption);
end;

Как сделать, что бы при нажатии на определенный итем, он выделялся (checked = true)

Пробовал так:

procedure TForm1.FPopupMenuClick(Sender: TObject);
begin
  with Sender as TMenuItem do
  begin
  Items[tag].Checked:=True;
 end;
end;

Но не получается

[eduard93]

Включите нужному менюитему AutoCheck.

[phphel]

Items[tag].AutoCheck:=true; Так что ли?
Все равно - menu index out of range.

[eduard93]

Вот тут:

FMenuItem := TMenuItem.Create(Self);
    With FMenuItem Do
     begin
       AutoCheck:=true;

[phphel]

Не помогло

[eduard93]

Код в студию.

[phphel]

Код в первом сообщении

[Sparkman]

У вас при каждом вызове PopupMenu пересоздается, поэтому тут авточеки не помогут, нужно:
1) завести переменную, в которой будет находится информация о последнем чекнутом итеме, и при создании меню, смотреть эту переменную и там же чекать соответствующий итем;
2) создавать меню в другом месте (не при вызове).

для 1го пункта добавил строковую переменную и запоминаю в нее имя итема (можно и номер запоминать, если памяти на строки жалко):

var
  lastchecked:string;
procedure TForm1.FPopupMenuClick(Sender: TObject);
begin
  with Sender as TMenuItem do lastchecked:=Name;
end;

procedure TForm1.FPopupMenuPopup(Sender: TObject);
Var TX,TY,TZ :Integer;
     FMenuItem:TMenuItem;
     Pos      :TPoint;
 Begin
  GetCursorPos(Pos);
  Tx:=Pos.X;
  Ty:=Pos.Y;

  FPopupMenu:= TPopupMenu.Create(Self);
  FPopupMenu.AutoPopup:=False;
  FPopupMenu.Tag:= 0;
  For TZ:=1 To 23 Do
   Begin
    FMenuItem := TMenuItem.Create(Self);
    With FMenuItem Do
     begin
      Tag     := TZ;
      OnClick := FPopupMenuClick;
      Caption := IntToStr(TZ);
      Name := 'name'+IntToStr(TZ);
      if Name = lastchecked then Checked:=true;
      Hint    := 'HINT '+IntToStr(TZ);
     End;
    FPopupMenu.Items.Add(FMenuItem)
   End;

  FPopupMenu.Popup(TX,TY);
  Application.ProcessMessages;
  If FPopupMenu.Tag<>0 Then
   Begin
    Form1.Caption:=FPopUpMenu.Items[FPopupMenu.Tag-1].Hint;
   End;
 FPopupMenu.Free;
 FPopupMenu:= nil;
end;

[phphel]

Sparkman, огромное спасибо, есть добрые люди тут