Identifica tipo do campo

procedure VerificarTipo (aTField: TField);
var FieldType: String;
begin
  FieldType:= aTField.ClassName;
  if (FieldType = ´TStringField´)     or
     (FieldType = ´TWideStringField´) then
    begin
     { É Texto }
    end;
  if (FieldType = ´TDateField´)     or
     (FieldType = ´TDateTimeField´) or
     (FieldType = ´TTimeField´)     then
    begin
     { É Data / Data/Hora }
    end;
  if (FieldType = ´TIntegerField´)  or
     (FieldType = ´TSmallIntField´) or
     (FieldType = ´TLargeintField´) then
    begin
     { É Inteiro }
    end;
  if (FieldType = ´TFloatField´)    or
     (FieldType = ´TCurrencyField´) or
     (FieldType = ´TBCDField´)      or
     (FieldType = ´TFMTBCDField´)   then
    begin
     { É Numérico ou Valor }
    end;
end;