[Страдалецъ]

А вот так например:

Код:

procedure TForm33.FormCreate(Sender: TObject);
begin
 ScanMenu(MainMenu1.Items);
end;

procedure TForm33.ScanMenu(MenuItem: TMenuItem);
Var
  i: Integer;
begin
 for i := 0 to MenuItem.Count-1
 do if MenuItem[i].Count<>0
    then ScanMenu(MenuItem[i])
    else MenuItem[i].Caption := 'Здесь был Вася';
end;