Canvas als Parameter an Funktion übergeben

[kevSTAR]

Hi,

Ich habe eine funktion geschrieben, welche ein Balkendiagramm zeichnet und nun möchte ich z.B beim aufruf draw_Balken(Image1.Canvas,x,y...); angeben sodass er es auf dem image1 zeichnet

so sieht die funktionsdeklaration aus:

procedure drawBalken(target: TCanvas; x, y, breite, hoehe, anteil: integer; farbe, rand: TColor);


der Funktionsaufruf:

drawBalken(Image1.Canvas, 100, 300,50,100, tmp, clRed, clBlack);


Wie mache ich es nun innerhalb der funktion das er nicht Form1.Canvas nutzt (was ich zurzeit benutze) sondern den Canvas des image1?