2가지 방법으로 해보겠습니다.
1방법은 그냥 넣을때 곰마를 넣습니다, 그러나 실제 데이타와 다르므로 다른 소스에서 주의해야합니다.
Cells[1, i+1] := FormatFloat('#,##0', lv_money[i]);
2방법은 셀의 값과 DB데이타 값을 유지합니다, 단지 보이는것만 콤마를 넣습니다, 편집시에도 원 데이타 형식으로 나타납니다.
여기서 검색해도 많이 있습니다. 다용도로 사용하도록 함수를 만들었던 겁니다.

<!--CodeS-->
//공통함수 TStringGrid응 바꾸세요
function gfSetCellCfg(psGrid : TStringGrid; pRect : TRect;
piCol, piRow, pialign : Integer; pTxtColor, pCellColor: Tcolor; psNum2 : string): integer;
var
OldColor : TColor;
Oldalign : word;
begin
with psGrid do begin
Oldalign := settextalign(Canvas.Handle, pialign);
Canvas.Font := psGrid.Font;
Canvas.Font.Color := pTxtColor;
OldColor := Canvas.Brush.Color;
Canvas.Brush.Color := pCellColor;
case pialign of
TA_LEFT :
Canvas.TextRect(pRect,
pRect.left+10,
(pRect.Top+pRect.Bottom-psGrid.Font.Size-2) div 2,
cells[piCol,piRow]);
TA_RIGHT :
Canvas.TextRect(pRect,
pRect.right-10,
(pRect.Top+pRect.Bottom-psGrid.Font.Size-2) div 2,
gfGetCommaStr(cells[piCol,piRow])+psNum2);
TA_CENTER :
Canvas.TextRect(pRect,
(pRect.left+pRect.right) div 2,
(pRect.Top+pRect.Bottom-psGrid.Font.Size-2) div 2,
cells[piCol,piRow]);
end;
Canvas.Brush.Color := OldColor;
settextalign(Canvas.Handle, Oldalign);
end;
Result := 1;
end;
function gfGetCommaStr(psNum : string) : string;
var
sFmt : string;
i : integer;
begin
sFmt := '#,##0';
if psNum <> '' then begin
if pos('.', psNum) > 0 then begin
sFmt := sFmt+'.';
for i := 1 to (length(psNum) - pos('.', psNum) ) do
sFmt := sFmt+'0';
end;
Result := FormatFloat(sFmt, StrToFloat(psNum));
end else
Result := '';
end;
<!--CodeE-->

<!--CodeS-->
//그리드의 함수
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ARow = 0)or(ACol = 0) then
gfSetCellCfg(TStringGrid(Sender), Rect, ACol, ARow, TA_CENTER, clBlack, clWhite, '')
else if (ARow <> 0 )and(ACol = 1) then
gfSetCellCfg(TStringGrid(Sender), Rect, ACol, ARow, TA_RIGHT, clBlack, clWhite, '원');
end;
<!--CodeE-->

님말씀대로 formatfloat 함수

FormatFloat인자가 Variant라서 그런가봅니다
Cells[1, i+1] := FormatFloat('#,##0', StrToFloat(VarToStr(lv_money[i])));
데이타값에 이상한 값이 있을지 모르니 try문도 간간히 사용하세요...

홍성락님..답변 감사합니다..
그런데 또 에러가... ㅠ..ㅠ

Cells[1, i+1] := FormatFloat('#,##0', StrToFloat(VarToStr(lv_money[i])));
했는데요...
lv_money는 variant 맞습니다..

'EConvertError with message ''' is not a valid floating point value' 에러메시지 뜹니다.. ㅡㅡ;;

아마 위에서 말한것 처럼 데이타에 숫자가아닌 값이 있나 보네요.
try를 사용해 함수내 놓거나 별고 함수로 만드는게 좋겠네요.
데이타에 숫자가아닌 값이면 0으로하시면 되나요?
<!--CodeS-->
function Get_VariantToFloat(pValue : Variant):Double;
begin
try
if (pValue <> null)and(Length(pValue) > 0) then //VarIsNull
result := StrToFloat(VarToStr(pValue));
else
result := 0;
except
result := 0;
end;
end;
//위 함수는 고쳐쓰세요, 깔끔하게요, 아니면 간단하니 삽입해서 사용하세요.
//새 함수 사용
Cells[1, i+1] := FormatFloat('#,##0', Get_VariantToFloat(lv_money[i]));
<!--CodeE-->
간단하게는 CurrToStr나 CurrToStrF 등등의 함수들도 있어요...

감사합니다..
해결했습니다... ^^;
복 받으세요...