On woensdag, dec 4, 2002, at 05:04 Europe/Brussels, Judison wrote: > procedure MyGetData(x: integer; var data; var rsize: integer); > var > lData: Pointer; > begin > GetData(x, @ldata, @rsize); > {copy lData^ to Data, (rsize div 4) bytes} move(ldata^,data,rsize div 4); > FreeData(lData); > end; Jonas