slm arkadaşlar, tanımladığım bir class ile ilgili sorunum var. unit2 de tanımlı : type TMP = class private hbk:AnsiString; procedure yzz(const Value: AnsiString); function okz: AnsiString; public property eli:AnsiString read okz write yzz; end; procedure TMP.yzz(const Value: AnsiString); begin hbk:=Value; end; function TMP.okz: AnsiString; begin result:=hbk; end; gibi bir adet ozellik iceren basit bir classım var. bunu unit1 de kullanmak icin, uses kısmına unit2 ekleyip ; var k:TMP; ile değişken tanımladım. ancak program icinde unit1 de. k.eli:='3'; yada showmessage(k.eli); gibi bir satıra denk geldiğinde program kırılıyor. sorun ne olabilir ? __________________