procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var Stream:TMemoryStream;
Image1:TImage;
Bitmap: TBitmap;
w,h, w1,h1:integer;
wsc,hsc:real;
begin
   if (Column.FieldName = 'b') and (MemTableEh1.FieldByName('name').AsString='jpg') then
   begin
     Stream:=TMemoryStream.Create;
     TBlobField(MemTableEh1.FieldByName('b')).SaveToStream(Stream);
     Image1 := TImage.Create(nil);
     Image1.Picture.Graphic := TJPEGImage.Create;
     Stream.Seek(0, soFromBeginning);
     Image1.Picture.Graphic.LoadFromStream(Stream);
     h:=Image1.Picture.Graphic.Height;
     w:=Image1.Picture.Graphic.Width;
     h1:=Rect.Height;
     w1:=Rect.Width;
     if (W>W1) or (h>h1) then
     begin
       wsc:=W/W1;
       hsc:=h/h1;
       if wsc>hsc then
       begin
         Rect.Height:=trunc(h/wsc);
       end
       else
       begin
         Rect.Width:=trunc(w/hsc);
       end;
     end
     else
     begin
     end;
     DBGridEh1.Canvas.StretchDraw(Rect,Image1.Picture.Graphic); //Работает, но сильно тормозит
     //DBGridEh1.Canvas.Draw(Rect.left, Rect.Top,Image1.Picture.Graphic); //Работает
   end;
   if (Column.FieldName = 'b') and (MemTableEh1.FieldByName('name').AsString='bmp') then
   begin


     Stream:=TMemoryStream.Create;
     TBlobField(MemTableEh1.FieldByName('b')).SaveToStream(Stream);
     Bitmap:=TBitmap.Create;
     Stream.Seek(0, soFromBeginning);
     Bitmap.LoadFromStream(Stream);
     Image1 := TImage.Create(nil);
     Image1.Picture:=nil;
     Stream.Position:=0;
     Image1.Picture.Bitmap.LoadFromStream(Stream);
//     Image1.Picture.Bitmap:=Bitmap;

     h:=Image1.Picture.Graphic.Height;
     w:=Image1.Picture.Graphic.Width;
     h1:=Rect.Height;
     w1:=Rect.Width;
     if (W>W1) or (h>h1) then
     begin
       wsc:=W/W1;
       hsc:=h/h1;
       if wsc>hsc then
       begin
         Rect.Height:=trunc(h/wsc);
       end
       else
       begin
         Rect.Width:=trunc(w/hsc);
       end;
     end
     else
     begin
     end;
     DBGridEh1.Canvas.StretchDraw(Rect,Image1.Picture.Graphic); //Работает
   end;
end;