{-----------------------------------------------------------------------------}
//LoadFuncImage(desImages,DBImage1.Picture);
procedure LoadFuncImage(var imgList:TImageList; Picture:TPicture);
const
  AWidth=16;
  AHeight=16;
var
  cutBmp: TBitmap;
  I: Integer;
  Stream:TMemoryStream;
  Dest,Source:TRect;
begin
  Stream:=TMemoryStream.Create;
  ImgList.Clear;
  try
    cutBmp := TBitmap.Create;
    try
      Dest := Rect( 0, 0, AWidth, AHeight );
      cutBmp.Width:=AWidth;
      cutBmp.Height:=AHeight;
      for i:=0 to (Picture.Bitmap.Width div AWidth)-1 do
      begin
        Source:=Rect(i*AWidth,0,i*AWidth AWidth,AHeight);
        cutBmp.Canvas.CopyRect(Dest,Picture.Bitmap.Canvas,Source);
        ImgList.AddMasked(cutBmp,cutBmp.TransparentColor);
      end;
    finally
      cutBmp.Free;
    end;
  finally
    Stream.Free;
  end;
end;
{-----------------------------------------------------------------------------}
procedure SaveFuncImage(imgList:TImageList;fField:TField);
var
  Bitmap: TBitmap;
  TmpList: TImageList;
  I: Integer;
  Stream:TMemoryStream;
begin
  if ( ImgList.Count > 0 ) then
  begin
    TmpList := TImageList.CreateSize( ImgList.Width, ImgList.Height );
    TmpList.Assign(ImgList);
    Bitmap := TBitmap.Create;
    Stream:=TMemoryStream.Create;
    try
      with Bitmap do
      begin
        Width := TmpList.Width * TmpList.Count;
        Height := TmpList.Height;
        if TmpList.BkColor <> clNone then
          Canvas.Brush.Color := TmpList.BkColor
        else
          Canvas.Brush.Color := clWindow;
        Canvas.FillRect( Bounds( 0, 0, Width, Height ) );
        for I := 0 to TmpList.Count - 1 do
          TmpList.Draw( Canvas, TmpList.Width * I, 0, I );
        HandleType := bmDIB;
        if PixelFormat in [ pf15bit, pf16bit ] then
        try
          PixelFormat := pf24bit;
        except
        end;
      end;
      Bitmap.SaveToStream(Stream);
      fField.DataSet.Edit;
      TBlobField(fField).LoadFromStream(Stream);
      fField.DataSet.Post;
    finally
      Bitmap.Free;
      Stream.Free;
    end;
  end;
end;