type
  TMyData = record
    Group: Integer;
    Name: String[100];
    Description: String[255];
    Tag: Boolean;
  end;
  PMyData = ^TMyData;

…

MyFetchData: PMyData;
MyDataArray: array of PMyData;

…

GetMem(MyFetchData, SizeOf(TMyData)); // Freed by me on close

…

  SetLength(MyDataArray, Length(MyDataArray)+1); // Set to zero length by me on close
  GetMem(MyDataArray[High(MyDataArray)], SizeOf(TMyData)); // Auto-Freed by ImageEn
  MyDataArray[High(MyDataArray)]^.Group:= 0;
  MyDataArray[High(MyDataArray)]^.Name:= IntToStr(ihObj);
  MyDataArray[High(MyDataArray)]^.Description:= '';
  ievFront.ObjUserData[ihObj]:= MyDataArray[High(MyDataArray)];
  ievFront.ObjUserDataLength[ihObj]:= SizeOf(TMyData);

…

MyFetchData:= ievFront.ObjUserData[hobj];

MyFetchData.Description returns ????????????????????????????????????????????????????????????

type
  TMyData = record
    Group: Integer;
    Name: String[100];
    Description: String[255];
    Tag: Boolean;
  end;
  PMyData = ^TMyData;

…
var
  MyData: PMyData; 
begin
  GetMem(MyData, SizeOf(TMyData)); // Auto-Freed by ImageEn
  MyData^.Group:= 0;
  MyData^.Name:= IntToStr(ihObj);
  MyData^.Description:= '';
  ievFront.ObjUserData[ihObj]:= MyData;
  ievFront.ObjUserDataLength[ihObj]:= SizeOf(TMyData);

…
var
  MyFetchData: PMyData; 
begin
  MyFetchData:= ievFront.ObjUserData[hobj];
  ShowMessage( MyFetchData^.Description );