type
  TMyRecord = record
    Width, Height: integer;
    Text: array[0..255] of AnsiChar;
  end;
  PMyRecord = ^TMyRecord;


var
  rc: PMyRecord;
begin
  New( PMyRecord )
  With rc^ do
  begin
    Width := ...;
    Height := ...;
    Text := ...;
  end;
  ImageEnView1.CurrentLayer.UserData := rc;
  ImageEnView1.CurrentLayer.UserDataLen := SizeOf( PMyRecord );
end;

type
  TMyRecord = record
    MyWidth, MyHeight: integer;
    MyX, MyY: Integer;
    MyRotation: Double;
    MyFileName: String[255];
  end;

var
  PMyRecord: ^TMyRecord;
begin
  New(PMyRecord);
  PMyRecord^.myWidth := iImgWidth;
  PMyRecord^.myHeight := iImgHeight;
  PMyRecord^.MyX := 0;
  PMyRecord^.MyY := 0;
  PMyRecord^.MyRotation := 0;
  PMyRecord^.MyFileName := ''; //Layer 0 has not file attached to it

  ievMain.Layers[0].UserData := PMyRecord;
  ievMain.Layers[0].UserDataLen := SizeOf(PMyRecord);
end;

procedure TfrmMain.ievMainLayerNotify(Sender: TObject; layer: Integer;
  event: TIELayerEvent);
type
  TMyRecord = record
    MyWidth, MyHeight: integer;
    MyX, MyY: Integer;
    MyRotation: Double;
    MyFileName: String[255];
  end;
var
  PMyRecord: ^TMyRecord;
begin
  New(PMyRecord);

  ievMain.Layers[layer].UserData := PMyRecord;
  ievMain.Layers[layer].UserDataLen := SizeOf(PMyRecord);

  ShowMessage(PMyRecord^.MyFileName);
end;

type
  TMyRecord = record
    MyWidth, MyHeight: integer;
    MyX, MyY: Integer;
    MyRotation: Double;
    MyFileName: String[255];
  end;

// Display the layer filename
procedure TfrmMain.ievMainLayerNotify(Sender: TObject; layer: Integer;
  event: TIELayerEvent);
var
  PMyRecord: ^TMyRecord;
begin
  PMyRecord := ievMain.Layers[layer].UserData;
  ShowMessage(PMyRecord^.MyFileName);
end;

SaveToFileAll(VectorPageFileName, ioPNG);