Jemand

procedure TPluginManagerForm.UpdatePluginList;
var
 n,ri : integer;
 tempModule : TModule;
 mName, mCaption : String;
begin
  list_plugins.Clear;
  ri := ModuleManager.GetFirstRModuleIndex; // index of the first right aligned module
  for n := 0 to ModuleManager.Modules.Count -1 do
  begin
    if n = ri then list_plugins.Items.Add(RIGHT_ALIGN_LISTBOX_STRING);
    tempModule := TModule(ModuleManager.Modules.Items[n]);
    mName := ExtractFileName(tempModule.ModuleFile.FileName);
    mCaption := TForm(tempModule.Control).Caption;
    list_plugins.Items.Add(mName + ' (' + mCaption + ')');
  end;
  if ri = -1 then list_plugins.Items.Add(RIGHT_ALIGN_LISTBOX_STRING);
  UpdateButtonStatus;
end;