Linie wird nicht angezeigt

[K-Asche]

Hi@all,

ich möchte für das unten erstellte Rect eine Rahmen zeichnen.
Die linke und die Linie für oben werden problemlos gezecihnet, aber die rechte wird nicht angezeigt.
Was mache ich falsch?

Delphi-Quellcode:

  Canvas.Pen.Color := clSkyBlue;
  //Funktioniert
  Canvas.MoveTo(0,0);
  Canvas.LineTo(ClientWidth, 0);
  //Funktioniert
  Canvas.MoveTo(0,0);
  Canvas.LineTo(0, 20);
  //Funktioniert nicht???
  Canvas.MoveTo(ClientWidth,0);
  Canvas.LineTo(ClientWidth, 20);

  Canvas.Brush.Color := clBtnFace;
  Canvas.Font.Size := 8;
  Canvas.FillRect(Rect (1,1,ClientWidth-1,20));
  Canvas.TextOut(10, 2 ,'text');

Gruß

Karsten