Compiler erkennt TControl.PopupMenu nicht

[DeddyH]

Es gibt doch auch noch ControlCount, wenn ich nicht irre (hab gerade kein Delphi zur Hand).

Delphi-Quellcode:

procedure TForm_Base.SetExportPopMenu;
var
  iComponent       : Integer;
  Control          : TControl;
begin
  for iComponent:= 0 to ControlCount-1 do
  begin
    Control:= Controls[iComponent];
    if ((Control is TListView) or
        (Control is TVirtualStringTree)) and not Assigned(Control.PopupMenu) then
    begin
      PopupMenu:= TPopupMenu.Create(ListView);
      Control.PopupMenu:= PopupMenu;
    end;
  end;
end;

Wie angedeutet nur heruntergetippt.