ok capito come dichiarare la classe ora questo codice come lo metto?

procedure Tdate.setvalue (m,d,y:integer);