[Lazarus] Where to place definition of a record?

[Zaher Dirkey]

I like to have feature for inherit Object from a Class

type
 Tfoo = Class
    a : integer;
    procedure b;
 end;

Tfoo2 = Object(TFoo);

var
  foo: TFoo2;
begin
  foo.b;
end;