{
Col example
This example uses a string grid with a label above it on a form. When the user clicks a cell in the grid, the location of the cursor is displayed in the label caption. 
} 
procedure TForm1.DrawGrid1Click(Sender: TObject);
begin
  Label1.Caption := 'The cursor is in column ' +
                     IntToStr(DrawGrid1.Col + 1) + 
                     ', row ' + 
                     IntToStr(DrawGrid1.Row + 1);
end; 
