How to add columns to a DBGrid at runtime?

I need to add columns to a DBGrid at runtime (in Delphi 3)
It is attached to a query.

How can I do this at runtime? I can't seem to find anything on this.

Bill