1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
unit uw3356; {$mode objfpc}{$H+} interface type TA = class private procedure FA; end; implementation procedure TA.FA; begin end; end.