Delphi 7

[Sanakan]

В ячейках DrawGrid'a забиты все символы шрифта. Как вывести содержимое выбранной ячейки, например в label?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Bevel1: TBevel;
    DrawGrid1: TDrawGrid;
    ComboBox1: TComboBox;
    Label1: TLabel;
    procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure ComboBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure DrawGrid1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses DateUtils;

{$R *.dfm}

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
With DrawGrid1.Canvas do
begin
Font.Size:=DrawGrid1.DefaultRowHeight div 2;
TextRect(Rect,Rect.Left,Rect.Top,Char((aRow+1)*DrawGrid1.ColCount+aCol));
end;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
DrawGrid1.Font.Name:=ComboBox1.Text;
Caption:='Font Display-'+DrawGrid1.Font.Name;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
With ComboBox1 do
begin
Items:=Screen.Fonts;
ItemIndex:=Items.IndexOf(Font.Name);
end;
Caption:='Font Display'+Font.Name;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
DrawGrid1.DefaultRowHeight:=ClientHeight div (DrawGrid1.RowCount+2)-1;
DrawGrid1.DefaultColWidth:=ClientWidth div (DrawGrid1.ColCount+1);
Refresh;
end;

procedure TForm1.DrawGrid1Click(Sender: TObject);
begin
//    ??????
end;

end.

[Arigato]

DrawGrid1.Row - номер выбранной строки.
DrawGrid1.Col - номер выбранной колонки.