Delphi how to export TMainmenu to Text file

var
    i,j,k :integer;
begin
  for i:=0 to MainMenu1.Items.Count -1 do begin
     if MainMenu1.Items[i].Caption <> '-' then begin
        memo1.lines.add( MainMenu1.Items[i].caption);
        if i = 0 then memo1.lines.add( MainMenu1.Items[i].caption);
        for j:=0 to MainMenu1.Items[i].Count -1 do begin
            if MainMenu1.Items[i].Items[j].Caption <> '-' then begin
               memo1.lines.add( MainMenu1.Items[i].Items[j].caption );
               for k:=0 to MainMenu1.Items[i].Items[j].Count -1 do begin
                   if MainMenu1.Items[i].Items[j].Items[k].Caption <> '-' then begin
                      memo1.lines.add(MainMenu1.Items[i].Items[j].Items[k].caption);
                   end;
               end;
            end;
        end;
     end;
  end;
  memo1.lines.SaveToFile('c:\temp\l.txt');