procedure Eat;override;
end;
{ TClass1 }
constructor TClass1.create;
begin
end;
procedure TClass1.Eat;
begin
end;
procedure TClass1.SetAge(const Value: Integer);
begin
FAge := Value;
end;
{ TClass2 }
constructor TClass2.create;
var
c2:TClass2;
begin
c2:=TClass2.create;
c2.FSex:='';
FreeAndNil(c2);
end;
{ TClass11 }
