Ajuda para ler os itens do menu

Var
  C,Auxi : Byte;
  Arquivo : TextFile;
Begin
  AssignFile(Arquivo,´C:\Arquivo.txt´);
  If(FileExists(´C:\Arquivo.txt´))then
    Reset(Arquivo)
  Else
    Rewrite(Arquivo);
  With(MainMenu1)Do
  Begin
     For C := 0 To Items.Count -1 Do
       For Auxi := 0 To Items[C].Count -1 Do
         WriteLn(Arquivo,Items[C].Items[Auxi].Name);
  End;
  CloseFile(Arquivo);

end;