Calc 필드를 한번이용해보세요...

OnCalcFields이벤트에서....

Calc필드를 추가... 가상의 필드를 하나 만드시는 거지요...

그 뒤에... 함수를 이용해서.... 그 필드에.... 3자리마다 ,를 찍는 함수를
만들어서.... 하게 되면... 문자형필드라도 ,를 찍을 수 가 있습니다...

with DataSet do
begin
    FieldByName('Calc').AsString := '￦'(이건옵션) +
        dispalyformat(StrTofloat (FieldByName('원래필드'));
end;

함수예....(이것은 숫자형에 대한 예입니다...)
이함수를 수정하시던지 하십시요...

function TForm1.dispalyformat(const pLength: Double): String;
var i, cntLen,totLen,chkLen : integer;
    tmpStr,rntStr : String;
begin
   tmpStr := floattoStr((pLength));  
   totLen := Length(tmpStr);
   IF totLen > 3 Then
      chkLen := totLen mod 3
   Else
      chkLen := 0;
   IF totLen > 3 Then
   begin
      IF chkLen = 0 then
         cntLen := Floor(totLen / 3) - 1
      Else
         cntLen := Floor(totLen / 3);
   end
   else
       cntLen := 0;
   rntStr :='';
   for i := 1 to cntLen do
   begin
   rntStr := ',' + copy(tmpStr,totLen-2,3) + rntStr;
   totLen := totLen - 3;
   end;
   rntStr := copy(tmpStr,1,totLen) + rntStr;
   Result := rntStr;
end;