Bitmap: Undeclared Identifier 'SetSize'

[eDonkey]

Hi und Danke schonmal für eure Antworten.
Ich verstehe was der code tut aber bin noch nicht sicher was jetzt benötigt wird.
wenn ich den code mit himitsus vorschlägen abändere bekomme ich (logischerweise) keinen error mehr
aber die vorschau klappt leider auch noch nicht. Ich bekomme nur ein weisses TImage angezeigt (Vorher
ein leeres / in Hintergrundfarbe(Schwarz))

Ich kann den uses abschnitt nicht 1zu1 kopieren, da ich die funktion alleinstehend aus dem internet kopiert habe
(ja c&p find ich auch nicht schön, aber ich will dieses feature unbedingt in mein programm einbauen und bekomm es alleine einfach nicht hin)

hier mein uses abschnitt:

Delphi-Quellcode:

uses
  Unit2, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, CoolTrayIcon, Menus, IniFiles, ShellAPI, TlHelp32;