Вызов события, OnDrawCell Опции

[Cheburashka]

В общем я хочу чтобы у меня после какого-то действия вызывалась процедура OnDrawCell для StringGrid'a.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);

Подскажите пожалуйста как можно эту процедуру вызвать из какого-либо участка кода?

[Cheburashka]

Что касается видимости ячеек, то этого у меня не произойдет. Поле небольшое и всё размещено на форме под нужные размеры.
Я просто хочу сделать так, чтобы у меня сначала нарисовались в каких-либо ячейках изображения. А потом также продолжать их рисовать при определенных действиях.
Как я понял OnDrawCell для этого лучше не использовать? И можно ли каким-либо другим способом рисовать в ячейках StringGrid?

  For i := 1 to 5 do begin
    XR := Random (9);
    YR := Random (9);
    BallR := Random (7);
    While Field [XR, YR] = 1 do begin
      XR := Random (9);
      YR := Random (9);
    end;
    Field [XR, YR] := 1;
    Rect := Form1.StringGrid1.CellRect(XR, YR);
    Case BallR of
      0 : Form1.StringGrid1.Canvas.Brush.Bitmap := Pink;
      1 : Form1.StringGrid1.Canvas.Brush.Bitmap := Green;
      2 : Form1.StringGrid1.Canvas.Brush.Bitmap := Yellow;
      3 : Form1.StringGrid1.Canvas.Brush.Bitmap := Red;
      4 : Form1.StringGrid1.Canvas.Brush.Bitmap := Blue;
      5 : Form1.StringGrid1.Canvas.Brush.Bitmap := LightBlue;
      6 : Form1.StringGrid1.Canvas.Brush.Bitmap := Brown;
    end;
     form1.StringGrid1DrawCell(Sender: TObject; XR, YR: Integer; Rect: TRect; State: TGridDrawState);
  end;