[pascal]
...
// altering the imagelist
showmessage(inttostr(DXImageList1.Items[0].patternwidth));
// it shows 100 like it is declared as default in the imagelist
DXImageList1.Items[0].patternwidth := 50;
DXImageList1.Items[0].patternheight := 50;
DXImageList1.Items[0].restore;
showmessage(inttostr(DXImageList1.Items[0].patternwidth));
// it shows 50 like I changed it
// end of altering imagelist

// creating new sprites
...
with playersprite do
image := DXImageList1.Items[0];
width := DXImageList1.Items[0].patternwidth;
height := DXImageList1.Items[0].patternwidth;
x := 100;
y := 100;
...
end;

[/pascal]

This worked. The restore of the DXImagelist1 was needed. Without this it didn't work.