///
Na linguagem Object Pascal, a classe denominada TObject é a raiz de todas as classes. No ambiente do Delphi 7, quando uma classe deriva diretamente da classe TObject, a sua definição deve ocorrer conforme o exemplo abaixo.
produto = Class (TObject)
codigo: integer;
descricao: string;
procedure carga_diaria;
end;