OOP: Image in Klasse verwenden

[Gandalfus]

Delphi-Quellcode:

TFahrzeug = class
  Fbild: TBitmap;
....

var
  Fahrzeug: TFahrzeug;

...
  Fahrzeug := TFahrzeug.create;
  Fahrzeug.fbild := TBitmap.create;
  Fahrzeug.fbild.loadfromfile(xxxxxxxxx);

...

  canvas.draw(x,y,Fahrzeug.fbild)