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;