FloatFomat,StrtoIntdef

var
  aaa : Integer;
begin
  aaa :=  StrToIntDef('a',-1);

  edt_1.Text := FormatFloat('#,',aaa);

세자리수 마다 끊어서 , 출력