Espero que te sirva el siguiente ejemplo, asumiendo que vamos a crear el campo en un TQuery llamado Query1:
Código Delphi
[-]
var
Campo :TFloatField;
begin
Campo := TFloatField.Create(Self);
Campo.Precision := 15;
Campo.FieldName := 'Nombre_Columna';
Campo.Name := 'NombreDelCampo';
Campo.DisplayLabel := 'CampoEnEjecucion';
Campo.DisplayFormat := '###,###,###,###.00';
Campo.DataSet := Query1;
Query1.FieldDefs.UpDate;
end;