type TMyRecord = record SourceText: array[0..255] of AnsiChar; SourceWidth: integer; SourceHeight: integer; end; PMyRecord = ^TMyRecord;
var rc: PMyRecord; begin New( rc ) With rc^ do begin Width := ...; Height := ...; Text := ...; end; ImageEnView1.CurrentLayer.UserData := rc; ImageEnView1.CurrentLayer.UserDataLen := SizeOf( PMyRecord ); end;