Vertikale Linie??

[SaFu]

Hi

Ich bekomme es einfach nicht gebacken, ich versuche eine vertikale Linie im StringGrid zu zeichnen da kommt alles raus nur keine gerade Linie

Was mach ich falsch

Delphi-Quellcode:

 if (ACol = 1) And (ARow In [1, 2, 3, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 18, 19, 21, 22, 23]) then
  begin
   StringGrid1.Canvas.Pen.Color := clBlack;
   StringGrid1.Canvas.MoveTo(Rect.Top, Rect.Bottom);
   StringGrid1.Canvas.LineTo(Rect.Right, Rect.Bottom);
  end;
end;