Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как создать простейший эксперт?

01.01.2007
{ 
This unit can be compiled into a package and will then appear in the Delphi
Help menu.
}
unit
SDCSimpleExpert;
 
interface
 
uses
ToolsApi;
 
type
 
TSDCSimpleExpert = class(TNotifierObject, IOTAMenuWizard, IOTAWizard)
 
public
   
function GetIDString: string;
   
function GetName: string;
   
function GetState: TWizardState;
    procedure
Execute;
   
function GetMenuText: string;
 
end;
 
procedure
Register;
 
implementation
 
uses
Dialogs;
 
procedure
Register;
begin
 
{register expert}
 
RegisterPackageWizard(TSDCSimpleExpert.Create);
end;
 
{ TSDCSimpleExpert }
 
procedure
TSDCSimpleExpert.Execute;
begin
 
{code to execute when menu item is clicked}
 
ShowMessage('Hello SwissDelphiCenter Simple Expert.');
end;
 
function TSDCSimpleExpert.GetIDString: string;
begin
 
{unique expert identifier}
 
Result := 'SwissDelphiCenter.SimpleExpert';
end;
 
function TSDCSimpleExpert.GetMenuText: string;
begin
 
{caption of menu item in help menu}
 
Result := 'SwissDelphiCenter Simple Expert';
end;
 
function TSDCSimpleExpert.GetName: string;
begin
 
{name of the expert}
 
Result := 'SwissDelphiCenter Simple Expert';
end;
 
function TSDCSimpleExpert.GetState: TWizardState;
begin
 
Result := [wsEnabled];
end;
 
end.

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php