{$MODE OBJFPC} { -*- delphi -*- } {$INCLUDE settings.inc} unit newunit; interface type TNewunit = class constructor Create(); destructor Destroy(); override; end; implementation constructor TNewunit.Create(); begin inherited; end; destructor TNewunit.Destroy(); begin inherited; end; end.