TBar.pas

{Метод конструктор Create класс TBar} 
constructor TBar.Create(a, b, c: word; Ro: real) ;
begin 
inherited Create(a, b, c) ;
FRo:=Ro;
end;

{Метод massa} 
function TBar.massa: real;
begin
result:=FRo*Volume;
end;

procedure TBar.Show;
begin
ShowMessage(... );
end;