Genau das ist der Vorteil einer Klasse. Da kannst du einfach TSprite als Typ für die Liste nehmen und es ist trotzdem ein Pointer.
Delphi-Quellcode:
var
Sprite: TSprite;
begin
Sprite := TSprite.Create;
Sprite.IconPath := ExtractFilePath(ParamStr(0)) + 'UserIcon\48x48\' + sUseThumb;
IconPath := SpriteIconPath;
Sprite.h_Bitmap := CreateIcon.CreateCustomIcon(IconPath, Width, Height, 0);
Sprite.Width := Width;
Sprite.Height := Height;
Sprite.ShellTo := 'explorer.exe';
Sprite.CmdLine := '/N;::{645FF040-5081-101B-9F08-00AA002F954E}';
Sprite.ShowCmd := SW_SHOW;
Liste.Add(Sprite);
end;