Классы в delphi

[МишаК]

Задача стоит такая. Описать классы в Delphi, это я сделал, а еще у каждого класса реализовать методы - конструктор, деструктор.
Как это делается? Классы описаны ниже (фрагмент кода блока type). Спасибо.
TTovar = class(TObject)
Name: String[100];
Kod : String[5];
Data: TDateTime;
Proizvoditel: String[255];
Gost: String[100];
Constructor Create();
Destructor Destroy;
end;
TProd_Tovar = class(TTovar)
Srok_Godnosti: Integer;
end;
TProm_Tovar = class(TTovar)
Material: String[100];
end;
TNakladnaia = class(TObject)
Nomer: Integer;
Data_postupl: TDateTime;
Name: String[100];
Kolvo: Integer;
end;

[pu4koff]

и че непонятного? Лучше кстати явно писать Public, private,...

constructor TTovar.Create;
begin
  Name:= '';
  Kod := '';
  Data:= Date;
  Proizvoditel:= '';
  Gost := '';
end;

destructor TTovar.Destroy;
begin

end;

если надо констурктор и для TProd_Tovar, то

constructor TProd_Tovar.Create;
begin
  inherited Create;     // вызов Create класса-родителя
  Srok_Godnosti := 0;
end;