[darkone2k4]

Empezado por Caro

Hola darkone2k4, para recorrer puedes hacer lo siguiente:

Código Delphi [-]
 for ind :=0 to ComponentCount-1 do
 begin
  if Components[ind] is TMenuItem then
   if TMenuItem(Components[ind]).Tag = Query.FieldByName('Tag').AsInteger then
     TMenuItem(Components[ind]).Visible := Query.FieldByName('Estado').AsBoolean; //Visible o Enabled (el que necesites)
  end;

Saluditos

Muchas gracias por la respuesta, era justo lo que necesitaba!!!!