{$codepage utf8} {$mode objfpc} Unit Clase02; Interface Uses Clase01; Type Tclase02=class(TClase01) Procedure Poner; End; Implementation Procedure TClase02.Poner; Begin a:=5 End; End.