#pas
Win.pas

public
 fname:string;
 property Name:string read fname;



procedure THIWin.Init;
begin
...

  THIWin(Control).fName := _prop_Name; 
end;