Adding fields to TQuery at runtime

I am trying to write a routine that adds lookup fields to a TQuery at
runtime, and haven't been able to figure out how.  If I add a ftData field,
when I Open the query, I get the message 'type mismatch for field
<fieldname>, expecting: Unknown Actual: String'.

Has anybody done this before?