[ingabraham]

exacto era la uses DB.

companneros tambien encontre este procedure x alli.

Código Delphi [-]
Procedure TExportar.SetFormatoGrilla(Sender:TDBGrid);
Var
    Index:Integer;
Begin
     For Index:=0 To (Sender.FieldCount-1) Do
     Begin
           Try
              Case (Sender.Fields[Index].DataType) Of
                   ftInteger :TIntegerField(Sender.Fields[Index] ).DisplayFormat  :='#0';
                   ftFloat   :TFloatField( Sender.Fields[Index] ).DisplayFormat   :='###,##0.00';
                   ftDate   :TDatetimeField( Sender.Fields[Index] ).DisplayFormat:='dd/mm/yyyy';
              End;

           Except

           End;
     End;

End;