Hallo,
die Farbe canst du so einstellen:
Delphi-Quellcode:
Canvas.Pen.Color := clGreen;
// Jetzt die LineTo Methode
oder
Delphi-Quellcode:
Canvas.Brush.Color := clRed;
Canvas.Retangle //...
// Es wird das Rechteck mit Farbe gefüllt
Hoffe es hilft dir