procedure TFMenu.Action12Execute(Sender: TObject);
begin
case Lenguaje of
0: begin ActionManager1.ActionBars[0].Items[0].Caption := 'File';
ActionManager1.ActionBars[0].Items[1].Caption := 'Reports';
ActionManager1.ActionBars[0].Items[2].Caption := 'View';
end;
1: begin ActionManager1.ActionBars[0].Items[0].Caption := 'Archivo';
ActionManager1.ActionBars[0].Items[1].Caption := 'Reportes';
ActionManager1.ActionBars[0].Items[2].Caption := 'Ver';
end;
end;
end;