{
Chord example
This code draws a chord on the top of an ellipse bounded by the current window.
} 
procedure TForm1.Button1Click(Sender: TObject);
var
  R: TRect;
begin
  R := GetClientRect;  { Get coordinates of the current window. }
  Canvas.Chord(R.Left, R.Top, R.Right, R.Bottom, R.Right, R.Top, R.Left, R.Top);
end; 
