Image in StringGrid

Procedure TForm1.StringGrid1DrawCell ( Sender : TObject ; ACol , ARow : Integer ;

   Rect : TRect ; State : TGridDrawState ) ;

Begin

   If ( aRow = 1 ) And ( aCol = 1 ) Then

      With StringGrid1.Canvas Do

         Draw ( Rect.Left , Rect.Top , Image1.Picture.Graphic ) ;

End ;