title: Delphi TFloatField.DisplayFormat for numeric fields less than 1.0
body: <p>This is my procedure.</p>
  
  <pre><code>procedure format_integer_field(Atable: TDataSet);
   var i: integer;
  begin
   if Atable.Active then
   if Atable.FieldCount &gt; 0 then
   with Atable do
   begin
    for i:= 0 to FieldCount-1 do
    if (Fields[i] is TIntegerField) then
    begin
     (Fields[i] as TIntegerField).DisplayFormat := '###,###';
     (Fields[i] as TIntegerField).EditFormat := '#';
    end
    else
     if (Fields[i] is TFloatField) then
    begin
     (Fields[i] as TFloatField).DisplayFormat := '###,###.##';
     (Fields[i] as TFloatField).EditFormat := '#.##';
    end;
   end;
  end;
  </code></pre>
  
  <p>This is work fine until a number like "0.9" has been entered and result will be ".9".
  How can I have thousand separator and zero before floating point that smaller than "1".</p>