DrawGrid непонятная ошибка в TextOut

[lostbananan]

Написал так:

type
  TForm1 = class(TForm)
...
    procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
...
procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s : String;
begin
  case TDrawGrid(Sender).tag of
    1:  s := IntToStr(agres);
    2:  s := IntToStr(alcohol);
    3:  s := IntToStr(boss);
  end;
  TDrawGrid(Sender).Canvas.TextOut(35, 1, s);
end;

Компилятор не пропускает такой код:

Grid[0].DrawGrid1DrawCell(Sender; ACol, ARow; Rect; State);

Выдает: Undeclared identier DrawGrid1DrawCell
Что я сделал нерпавильно?

[evg_m]

  TForm1 = class(TForm)
...
    procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
...
procedure Tform1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s : String;

[lostbananan]

Исправил, но ошибка осталась.

[evg_m]

Grid[0].DrawGrid1DrawCell(Sender; ACol, ARow; Rect; State);

А где и зачем такое надо! Когда и что рисовать знает и определяет система. И в случае необходимости путем вызова обработчика события OnDrawCell информирует об этом с указанием где (rect)что (sender, col, row) и как (state) она хочет рисовать. В этом и только в этом случае (по просьбе системы) ты можешь заняться рисованием!

DrawGrid1DrawCell процедура определенная не для Grid1, а для Form1 (или Self)

DrawGrid2DrawCell(grid1,....);

можно если ты сможешь определить (задать значения) и всем прочим параметрам, НО не нужно!
А если это будет в обработчике рисования то получишь stackoverflow.
тебя просят рисовать
в ответ ты просишь рисовать
в ответ в ответ тебя просят рисовать
в ответ в ответ в ответ ты просишь
в ответ в ответ в ответ в ответ тебя
......
В том случае если ты считаешь что системе пора заняться рисованием, то есть Invalidate; InvalidateCell, ...