Koliko vidim, uopste nemas taj ispis teksta, pa se zato ne vidi.
Dakle, treba ti nesto ovako /c++ kod/:
Code:
SG1->Canvas->TextRect( Rect, Rect.Left, Rect.Top, SG1->Cells[Col][Row] );
... a ti prevedi za Delphi.
To bi trebalo da bude poslednja linija OnDrawCell kodu. Takodje proveri da li su ti
blokovi begin/end pravilno postavljeni u tvom primeru.
P.S.
Evo ti i parce koda:
http://www.bcbjournal.org/bcbcaq/CAQs/caq48.htm
... koje malo preciznije opsiuje kako se treba pristupiti farbanju TStringGrid-a.
(kod je takodje za C++, ali je bas trivijalno prevesti ga za Delphi)