Wo liegt denn deine Paintrectangle-Funktion? Und wie kannst du von dort auf das Canvas-Objekt zugreifen (welches auch immer)?
Grundsätzlich müsste es so aussehen:
Delphi-Quellcode:
unit ....
interface
type TTreeMapChart=class(...)
...
{was auch immer hier steht}
private
{hier deine Variablen}
PointsArrayP,PointsArrayQ:
array of ....
public
procedure paintrectangle(....)
end;
....
implementation
procedure TTreeMapChart.paintrectangle(...)
{hier deine Prozedur
Du kannst jetzt auf alle Variablen aus dem Objekt TTreeMapChart zugreifen}
begin
...
end;
{und so weiter}