The Delphi code;

procedure TOraDB.GetTypeDescriptorObject(TypeName : string);
var
str:array[0..1023] of char;
temp : pointer;
begin
strpcopy(str,TypeName);
TestError('OCIDescribeAny',OCIDescribeAny(mysvchp, dberrhp,@str, strlen(str),OCI_OTYPE_NAME,1,OCI_PTYPE_TYPE,mydsch p));
TestError('OCIAttrGet',OCIAttrGet(mydschp,OCI_HTYP E_DESCRIBE,@myparam,0,OCI_ATTR_PARAM,dberrhp));
TestError('OCIAttrGet',OCIAttrGet(myparam,OCI_DTYP E_PARAM,@mytyperef,0,OCI_ATTR_REF_TDO,dberrhp));
TestError('OCIObjectPin',OCIObjectPin(myenvhp,dber rhp,
mytyperef,0,
OCI_PIN_ANY,
OCI_DURATION_SESSION,
OCI_LOCK_NONE,
@temp));
end;

crashes on the last OCI command .. What's wrong?