Überprüfen ob ein Ergeigniss existiert?

[Karstadt]

Delphi-Quellcode:

var I : Integer;
begin
  With Formular do
  begin
    for i:= 0 to ComponentCount-1 do
    begin
      IF (Components[i] is TDBGrid) Then
      begin
        //TDBGrid(Components[i]).Font.Size := 15;
        IF not Assigned(TDBGrid(Components[i]).OnDrawColumnCel) Then
        TDBGrid(Components[i]).OnDrawColumnCell := DbGrib_DrawColumnCell_Einstellung;
      end;

[Fehler] hauptfenster.pas(375): Undefinierter Bezeichner: 'OnDrawColumnCel'

Warum?