Canvas.LineTo ändert nicht Farbe

[DevilsCamp]

ich habe in meinem Programm folgenden Code:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
   r,g,b: Byte;
   rt: TRect;
begin
   r  := Random(256);
   g  := Random(256);
   b  := Random(256);
   Label1.Caption := Format('R = %d, G = %d, B = %d', [r,g,b]);

   Canvas.Brush.Style   := bsSolid;
   Canvas.Brush.Color   := RGB(r,g,b);
   rt.Left  := 1;
   rt.Top   := 1;
   rt.Right := 40;
   rt.Bottom   := 40;
   Canvas.FillRect(rt);
   Canvas.MoveTo(0,0);
   Canvas.LineTo(x,y);
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
   Randomize;
end;

Nun erwartet man doch, dass mit jeder Bewegung der Maus die Farbe der Linie per Zufall gesetzt wird.
Jedoch behält die Linie IMMER die Farbe Schwarz, obwohl das Label nicht 'R = 0, G = 0, B = 0' ausgibt und das gefüllte Rechteck auch die entsprechende Farbe besitzt. Wie kann ich also eine Linie zeichnen, die die gewünschte Farbe besitzt?