Ungewollter Zugriff auf in einem Array gespeichertes Objekt

[Klaus01]

Delphi-Quellcode:

procedure TRobot.Zeichnen(Ziel: TBitmap);
var  
  Koord : array[1..3] of TPoint;
  i :integer;
  Winkelz: array[1..3] of double;
begin
  Winkelz[1]:=pi;
  Winkelz[2]:=2*Pi/3+pi;
  Winkelz[3]:=4*Pi/3+pi;
  for i:= 1 to 3 do
    begin
      Koord[i].x:=Round(Position[1]+Sin(Winkel_1+Winkelz[i])*10);
      Koord[i].y:=Round(Position[2]+Cos(Winkel_1+Winkelz[i])*10);
    end;

  if assigned(ziel) then
    begin
      Ziel.Canvas.Brush.Color:=clred;
      Ziel.Canvas.Polygon(Koord);
    end;
end;

Kommt die Fehlermedlung genau in der Zeile
oder kommt sie wenn Du auf dem Bitmap etwas zeichnen willst?

Grüße
Klaus