Custom variables in an object of an object.

[User137]

Use either

[pascal]with TCloud(Sprite) do[/pascal]

or

[pascal]with Sprite as TCloud do[/pascal]

or make your Sprite type TCloud instead of TImageSprite.