Zdrasduviyci masteri.
U mina yes adin Class naprimer

TProduct = class(TObject)
private
 name:String;
public
  function getName():String;
  procedure setName(name:String)
end;

---

var
product:TProduct
begin
product := Tproduct.create;
product.setName('sample');
end;

ya sazdayu object product i tiper xacu pecat polya etava abyekta.
mojna li atpravit object fastReport.
Zaraniye sbasiba

Удалено модератором

ну когда же ты изучишь русские буквы...