关于DBGrid的列头能追加一副图片

Question

建一个资源文件，包括两幅图片
procedure TForm1.DBGridTitleClick(Column: TColumn);
var Bitmap : TBitMap;
    Rect: TRect;
begin
  Bitmap := TBitmap.Create;
  Bitmap.Transparent := True;
  Rect := TStringGrid(Column.Grid).CellRect(Column.Index+1, 0);
  Bitmap.LoadFromResourceName(hInstance, 'ORDERUP');
  //Bitmap.LoadFromResourceName(hInstance, 'ORDERDOWN');  DBGrid.Canvas.Draw(Rect.Right - 12 , Rect.Top + 2, Bitmap);
  Bitmap.Free;end;