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

      if gdFocused in State then
        begin
        Canvas.Brush.Color := clyellow;
        Canvas.FillRect(Rect);
        inc(Rect.left,2);
        inc(Rect.top,2);
        Canvas.Font.Color := clBlue;
        drawtext(canvas.handle,pchar(cells[col,row]),length(cells[col,row]),
               Rect,DT_LEFT or DT_TOP);
        end;					

1:
2:
3:
4:
5:

if gdFocused in State then
        begin
        sgFunktionen.Canvas.Font.Color := Funktionen[y].color;//Funktionen ist ein array, die position y entspricht der des sgFunktionen
        drawtext(sgFunktionen.canvas.handle,pchar(sgFunktionen.cells[acol,arow]),length(sgFunktionen.cells[acol,arow]),Rect,DT_LEFT or DT_TOP);
         end;					

1:
2:

if ACol = 1 then
 canvas ... blabla					

1:
2:
3:
4:

procedure TFMathefunktionen.sgFunktionenOnDrawCell(Sender: TObject; ACol, ARow: Longint; Rect: TRect; State: TGridDrawState);
begin
 sgFunktionen.canvas.Font.Color:=clred; // Das ist falsch, hab aber keinen plan...
end;