Teclas de Funcção F2, F3, F4... Pegar tipo de campos

DMGipLite.qry_di_.Fields[nCampo].DataType
ou
for iContador := 0 to ComponentCount - 1 do
begin
if (Components[iContador] is TMaskEdit) then
begin
if TMaskEdit(Components[iContador]).Text = ´ / / ´ then
begin
TMaskEdit(Components[iContador]).Hint := ´Click duplo para limpar´;
TMaskEdit(Components[iContador]).OnClick := Custom_MaskEditDblClick;
TMaskEdit(Components[iContador]).ShowHint := True;
TMaskEdit(Components[iContador]).Cursor := crHandPoint;
end;
end;
if (Components[iContador] is TDBEdit) then
begin
if TDBEdit(Components[iContador]).DataSource.DataSet.FieldByName(TDBEdit(Components[iContador]).DataField).DataType in [ftDate, ftDateTime] then
begin
TDBEdit(Components[iContador]).Hint := ´Click duplo para limpar´;
TDBEdit(Components[iContador]).OnDblClick := Custom_DbEditDblClick;
TDBEdit(Components[iContador]).ShowHint := True;
TDBEdit(Components[iContador]).Cursor := crHandPoint;
end;
end;
end;