procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
Ancho,Posicion: Integer;
begin
Ancho := StringGrid1.ColWidths[2] div 2;
Posicion := Ancho - (Image1.Picture.Width div 2);
if (ARow = 3) and (ACol = 2) then
with StringGrid1.Canvas do
Draw(Rect.Left+Posicion, Rect.Top, Image1.Picture.Graphic);
end;