Der Fehler beginnt in der Zeile
procedure TI.draw (psa:TCanvas;px,py:integer);
bzw. schon hier
Delphi-Quellcode:
procedure TI.move(px2:integer);
begin
...
sa.Rectangle(x,y,x+124,y+31);
Ohne mir das jetzt genauer angesehen zu haben, würde ich drauf tippen das das Problem Canvas ist.
Soweit ich sehe hast du es zwar deklariert, aber den Konstruktor vergessen?
Eigentlich sollten Objekte erstellt werden. Vielleicht hast du es irgendwo auch gemacht, aber trotzdem, auch das wird dich nicht weiter bringen, denn Canvas ist lediglich die Zeichenfläche und die kann man soweit ich weiß nicht alleine für sich nutzen. Eher aus TBitmap usw., nicht alleine.