TBitmap.Create in Komponente geht nicht

[scrat1979]

Hallo,

um mich etwas mit Canvas herumzuschlagen schreibe ich mir momentan meine eigene Progressbar. Die funktioniert im Prinzip auch schon tadellos, nur möchte ich jetzt noch einen Gradienten-Stil einfügen. Abgeleitet wurde von TGraphicsControl, wobei ich die Paint-Prozedur überschreibe.
In dieser möchte ich nun intern ein TBitmap erstellen, doch irgendwie funktioniert das überhaupt nicht. Bin ich jetzt schon zu bl*d eine TBitmap-Instanz zu erstellen?

Delphi-Quellcode:

procedure TMyGauge.Paint;
VAR MyRect         : TRect;
    BarRect        : TRect;
    SmallRect      : TRect;
    TempBitmap     : TBitmap;
    Text           : String;
[...]

begin
  // Interne Variablen initialisieren
  TempBitmap := tBitmap.Create;   // <-- Das funktioniert nicht
  MyRect := ClientRect;
  BarRect := ClientRect; InflateRect(BarRect, -1, -1);
  [...]
end;

NUR mit der Variablendeklaration lässt sich der Source einwandfrei compilieren, nur in der Zeile "TempBitmap := tBitmap.Create" kommt die Compilermeldung "[Pascal Error] MyGauge.pas(176): E2003 Undeclared identifier: 'Create'". HOffe Ihr könnt meinen Fehler aufdecken, ich verstehe die Welt nicht mehr

SCRaT