Canvas.LineTo ändert nicht Farbe

[Matze1505]

Alles klar. Vielen Dank.
Dann muss ich mal schauen, wie ich das alles in den Timer eingebaut bekomme...

Edit:
So, ich hab es geändert, aber der Stift bleibt immernoch schwarz. Jetzt weiß ich nichtmehr weiter...

Code:

procedure TFahrtenschreiber.FormCreate(Sender: TObject);
begin
  [...]
  FirstRunTimer := True;
  [...]
end;

procedure TFahrtenschreiber.tiTimerTimer(Sender: TObject);
begin
  IF FirstRunTimer = True THEN
  begin
    imGraphOut.Canvas.Pen.Color := RGB( 33, 0, 127 );
    imGraphOut.Canvas.MoveTo( Const_X, Const_Y );
  end;
  FirstRunTimer := False;
  IF ( imGraphOut.Canvas.PenPos.X > ( Const_X + 120 ) ) AND ( imGraphOut.Canvas.PenPos.X < ( Const_X + 1220 ) ) THEN
    imGraphOut.Left := ( imGraphOut.Left - 1 );
  imGraphOut.Canvas.LineTo( Const_X + Step, Const_Y - Random ( 140 ) );
  INC( Step );
end;

Gut, ist bestimmt nicht die sauberste Lösung, aber ich weiß es nicht besser zu lösen.

Woran könnte es denn noch liegen, dass der Stift immernoch schwarz ist und bleibt?

Schönen Abend noch.