hobj := AddNewObject;
ObjKind[hobj]:= iekTEXT;
ObjName[hobj]:='PFUN_'+inttostr(i+1);
ObjLeft[hobj]:= 100;
ObjTop[hobj]:= 100;
ObjHeight[hobj]:=50;
ObjWidth[hobj]:= 10;
ObjText[hobj]:= 'Pin_'+IntToStr(i+1);
ObjTextAlign[hobj]:= iejCenter;
ObjFontAngle[hobj]:= 90;