Dynamic Filter on TCustomADODataset where filter field data type change

I want to build dynamic filters on a TCustomADODataSet.

All works but I must cater for the "... = 'TextFieldValue'"
or "... = NumberFieldValue" situations where the quote marks must be
added when the field type is text.

I will only use "text" or "number" type fields (ie no date etc).

But there is still a lot of them....i.e. - Is there a not shorter way
to validate the field type than to check for all the "ftString" &
"ftWideString" & "ftFloat" etc

something like :
if (must add the ''s) then
  //build string with ''
else
  //build the string without '';

thanks, Gert