위의 질문 내용과 비슷하군요..
위의 답변에다 약간 수정합니다.
필요없는 코드부분 수정하시구 쓰세요..

procedure TForm.dbg_1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
    tw : integer;
    setValue : String;
begin
    if rs.fieldbyname('컬럼').asString = '비교값' then
        begin
        with DBG_1.Canvas do
        begin
            setValue := Column.Field.AsString;
            setValue := 금액바꾸는 함수(setValue);//<-이건 하셨다고 하셨죠??
            Font.Color := clWhite;
            Brush.Color := clBlue;

            FillRect(Rect);
            TW := TextWidth(setValue);
            TextOut((Rect.Left + Rect.Right - TW) div 2, Rect.Top+2, setValue);
        end;
    end;
end;