Como faco um laco [For] que mostre o conteudo de cada Menu

procedure verificacampos(nmform:string);
Var
  i,j : Integer;
begin
  for i:=0  to application.ComponentCount-1 do if application.Components[i].Name=nmform then j:=i;
  for i:=0 to application.components[j].ComponentCount-1 do
  begin
    if application.components[j].Components[i] is Tmenuitem then
    begin
       if tmenuitem(application.components[j].Components[i]).Caption=´clientes´ then showmessage(´Menu: ´+tmenuitem(application.components[j].Components[i]).Caption);
       if tmenuitem(application.components[j].Components[i]).Caption=´produtos´ then showmessage(´Menu: ´+tmenuitem(application.components[j].Components[i]).Caption);
       if tmenuitem(application.components[j].Components[i]).caption=´fornecedores´ then showmessage(´Menu: ´+tmenuitem(application.components[j].Components[i]).Caption);
    end;
  end;
end;