Vielleicht kannst du das Erstellen der Menuitems in eine Funktion auslagern, damit der Quellcode besser lesbar ist.
Delphi-Quellcode:
function TuoMethodes.UnitOptimizer_CreateMenuItem(Name: String; Capton: string);
var
mi: TMenuItem;
begin
mi := TMenuItem.Create(nil);
mi.Name := Name;
mi.Caption := Capton;
Result := mi;
end;
procedure TuoMenues.Initialize;
begin
if Supports(BorlandIDEServices, INTAServices, NTAServices) then
begin
StahliSoftMenuItem := UnitOptimizer_CreateMenuItem('StahliSoftMenuItem', 'StahliSoft');
NTAServices.AddActionMenu('ToolsMenu', nil, StahliSoftMenuItem, False, True);
StahliSoftMenuItem := UnitOptimizer_CreateMenuItem('StahliSoftUnitOptimizerMenuItem', 'UnitOptimizer');
NTAServices.AddActionMenu('StahliSoftMenuItem', nil, UnitOptimizerMenuItem, True, True);
//... usw
end;
Auch das onclick könnte man noch als Parameter übergeben.