/*
Chord example
This code draws a chord on the top of an ellipse bounded by the current window.
*/ 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TRect 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);
} 
