這個單元可以編譯到一個包中，之後它可以出現在Delphi的幫助菜單中。
注：在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
RegisterPackageWizard(TSDCSimpleExpert.Create);{ 注冊"專家}
end;
{ TSDCSimpleExpert }"}
procedure TSDCSimpleExpert.Execute;
begin
{當單擊菜單項時，執行這段代碼}
ShowMessage('Hello SwissDelphiCenter Simple Expert.');
end;
function TSDCSimpleExpert.GetIDString: string;
begin
{唯一"專家"標識符}
Result := 'SwissDelphiCenter.SimpleExpert';
end;
function TSDCSimpleExpert.GetMenuText: string;
begin
{菜單項的標題}
Result := 'SwissDelphiCenter Simple Expert';
end;
function TSDCSimpleExpert.GetName: string;
begin
{“專家”的名字}
Result := 'SwissDelphiCenter Simple Expert';
end;
function TSDCSimpleExpert.GetState: TWizardState;
begin
Result := [wsEnabled];
end;
