procedure MyDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
...
end;
...
var
StringGrid1:TStringGrid;
begin
StringGrid1:=TStringGrid.Create(self);
StringGrid1.Parent:=self;
StringGrid1.Show;
StringGrid1.OnDrawCell ;= MyDrawCell;