Ungetestet 
Sollte die untere Linie färben:
Delphi-Quellcode:
Canvas.Brush.Color := $00B9B9FF;
Canvas.Pen.Color := clWhite;
Canvas.MoveTo(Rect.Left, Rect.Bottom);
Canvas.LineTo(Rect.Right + 1, Rect.Bottom); // (+ 1) um den Schnittpuntk mit der rechten Linie ebenfalls zu färben
Die anderen Linien analog dazu.