Função para limpar campos Edit do formulario

Ola a todos
Uso delphi 7 + dbexpress + firebird 1.5
No formulario uso componentes Edit.
Tenho uma rotina para limpar os campos do formulario e outra para escrever os dados nos Edit´s.
Gostaria que as rotina verificassem o tipo de dado que será escrito nos Edit´s, para isso testo da forma abaixo:

[color=red:342a6f6926]case FieldByName(Vle.Cells[ 0 , i ]).DataType of[/color:342a6f6926]
mas só identifico os campos do tipo inteiro e string.
Eu gostaria de obter o numero de decimais previsto para o campo e limpar o camponente escrevendo a quantidade de zeros prevista para o campo/componente.
veja a rotina abaixo:

procedure LimparCampo(formulario: Tform;Vle:TValueListEditor;
Cds: TClientDataSet);
var
i, idx : integer;
Ctrl : TObject;
s : string;
begin
try
with cds do
for i := 0 To formulario.ComponentCount-1 do
begin
Ctrl := RetornarComponente(formulario,Vle.Cells[ 1 , i ]);
if Ctrl Is TEdit Then
begin
case FieldByName(Vle.Cells[ 0 , i ]).DataType of
ftString:
TCustomEdit(Ctrl).Text := ´´;
ftInteger:
TCustomEdit(Ctrl).Text := ´0´;
ftFloat:
TCustomEdit(Ctrl).Text := ´0,00´;
ftCurrency:
TCustomEdit(Ctrl).Text := ´0,00´;
ftDate:
begin
if formulario.components[i] is TCustomEdit then
TCustomEdit(formulario.Components[i]).Clear
end;
ftDateTime:
begin
if formulario.components[i] is TCustomEdit then
TCustomEdit(formulario.Components[i]).Clear
end;
end;
end
end;
except
on e:exception do
begin
TErros.GetMensagem(E);
end;
end;
end;