1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

type
  TGrid = class(TStringGrid)
  private
    { Private declarations }
    procedure MyOnDraWCell(Sender: TObject;
                           ACol, ARow: Longint;
                           Rect: TRect;
                           State: TGridDrawState);
   ....
var 
 Grid: TGrid;

implementation

procedure TGrid.MyOnDrawCell(Sender: TObject;
                             ACol, ARow: Integer;
                             Rect: TRect;
                             State: TGridDrawState);
begin
 ....
end;

// Das kommt ins Oncreate: StringGrid1.OnDraWCell := Grid.MyOnDraWCell;
// Oder du weißt die Prozedur bereits im OI zu.

end.					

1:
2:
3:
4:
5:
6:

implementation

procedure MyOnDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
 [...]
end;					

1:
2:
3:
4:
5:
6:
7:
8:

type
  TKlasse = class(TStringGrid)
  private
    { Private declarations }
    procedure MyOnDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
    public
    { Public declarations }
   end;					

1:
2:
3:
4:
5:
6:

implementation

procedure TKlasse.MyOnDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
 [...]
end;					

1:
2:

{ OnCreate }
 StrinGrid1.OnDrawCell := MyOnDrawCell;