unit Unit1;

interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
CtlPanel, unit2;
type
TAppletModule1 = class(TAppletModule)
procedure AppletModuleActivate(Sender: TObject; Data: Integer);
private
{ private declarations }
protected
{ protected declarations }
public
{ public declarations }
end;

var
AppletModule1: TAppletModule1;

implementation

{$R *.DFM}

end.

Nyní je potřeba zajistit, aby se po spuštění apletu tento nově přidaný formulář zobrazil. K tomu použijeme událost OnActivate modulu apletu:

procedure TAppletModule1.AppletModuleActivate(Sender: TObject; Data: Integer);
begin
Form2 := TForm2.Create( self );
Form2.ShowModal;
Form2.Free;
end;
A to už se pomalu blížíme k závěru. Nyní již zbývá jen několik drobností. V okně Object Inspectoru můžete nastavit u modulu apletu několik vlastností. První je vlastnost AppletIcon, která určuje ikonu apletu, jež bude zobrazena v Ovládacích panelech. Caption zase určuje popisek, který je u ikony zobrazen. Důležitá je též položka Help, kam můžete napsat krátký popis apletu a tento text bude zobrazen v levé části okna Ovládacích panelů po označení vašeho apletu.