unit main; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExShape; type { TMainForm } TMainForm = class(TForm) ShapeEx1: TShapeEx; ShapeEx2: TShapeEx; ShapeEx3: TShapeEx; ShapeEx4: TShapeEx; ShapeEx5: TShapeEx; ShapeEx6: TShapeEx; ShapeEx7: TShapeEx; private public end; var MainForm: TMainForm; implementation {$R *.lfm} end.