Zuerst: benutze bitte hier im Forum nicht die "CODE" Tags, sondern die "DELPHI"-Tags (der Römerhelm), dann lässt sich der Code besser lesen
dann schreib mal in deine Render Prozedur folgendes rein:
Delphi-Quellcode:
if not assigned(rCanvas) then
showmessage('rCanvas ist noch nicht gesetzt');
rCanvas.Pen.Color := clWhite;
rCanvas.Rectangle(0, 0, 720, 480);
...//was da noch so alles kommt
wenn jetzt beim Testen des Programms eine Meldung mit den Worten "rCanvas ist noch nicht gesetzt" erscheint, wurde rCanvas noch nicht gesetzt.
Heißt also
Raster.Canvas := Self.Canvas;
hat nicht funktioniert, oder rCanvas wurde danach auf etwas anderes gesetzt.