Cargar imágenes en celdas de StringGrid dependiendo de una consulta en tiempo de eje

[gulder]

Hola foro como andan espero que bien, con el siguiente codigo cargo imagenes en las celdas de un StringGrid

Código Delphi [-]
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;

Este codigo lo hace bien el problema es que con este código las cargo cuando se ejecuta mi aplicación, y yo quiero cambiar dichas imágenes dependiendo una consulta que hago a una base de datos, pero no se como llamar dicho evento para que cargue mis imágenes cuando realizo la consulta, la consulta ya esta bien lo que quiero que me digan es como rellenar las celdas del StringGrid desde la consulta con las imagenes saludos gulder-gan