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

[gulder]

Hola egostar gracias por responder, bueno la forma en que me colocas tu respuesta no la entendi muy bien por eso te coloco mi consulta, quiero que sepas que cuando yo hago la consulta la imagen que traigo la guardo al disoc y la cargo en un Timage y despues de este Timage la trato de cargar a las celdas que corresponde aqui esta mi consulta

Código Delphi [-]
procedure TForm1.CargarImagenesLink();
var
id:string;
i:integer;
LmsImagen: TADOBlobStream;
Rect: TRect;
State: TGridDrawState;
ancho,Posicion: Integer;
begin
//
      with form1.ADOQuery2 do
      begin

        //hallamos el id del tema al cual le bamos a cargar la imagenes
       Active:=false;
       sql.Text:= 'select id from Post'+
                  ' where Titulo ='+char(39)+Trim(NextGrid1.Cells[1,Grow])+char(39);
       Active := true;
       id := Fields.Fields[0].AsString;

       //traemos el link y las imagens del tema seleccionado
       Active:=false;
       sql.Text:= 'SELECT  temas_posteados.link,Foros.imagen  from  temas_posteados, foros'+
                  ' where temas_posteados.id_foros = Foros.id_foros and  temas_posteados.id ='+id;
       Active := true;

       ListBox1.Clear;

             for  i:=0  to recordcount-1 do
             begin
              //aqui cargho el link del tema en un litbox
              ListBox1.Items.Add(Fields.Fields[0].AsString);

              //aqui si la imagen que garco no es null entro
                     If Not Fields.Fields[1].IsNull Then
                       Begin

                         //la imagen que cargo la guardo en el disco y la cargo en un Image Que esta en el form
                         LmsImagen := TADOBlobStream.Create(TBlobField(Fields.Fields[1]),bmRead);
                         LmsImagen.SaveToFile(ExtractFilePath(Application.ExeName)+'foto.jpg');
                         Image1.Picture.Bitmap.LoadFromFile(ExtractFilePath(Application.ExeName)+'foto.JPG');

                         Ancho := StringGrid1.ColWidths[2] div 2;
                         Posicion := Ancho - (Image1.Picture.Width div 2);

                         //aqui debo cargar la imagen que esta en el Timage y mostrarla
                         //en laselda 

                       end;
              next;
             end;
     end;

end;

espero que mi codigo se entienda saludos gulder gan