Hast du in der Implementation ebenfalls eine Uses-Klausel drinstehn?
Klick einfach mal mit Strg + linke Maustaste auf das TBitMap im Interface und dann nochmal in der Implementation.
Wenn du hier an unterschiedlichen Stellen landest, dann hast du schon die Antwort.
Ist paintToBitmap die einzige Methode, mit diesem Problem oder ist das nur zufällig die erste Methode?
Eventuell liegt's ja auch am TShape selber, denn Delphi kenn auch Eines.
[edit] Ach nee, hier heißt es ja TShape
s 