como cargar un Query en tiempo de ejecucion

[sancarlos]

Amigos

Tengo un query creado en tiempo de ejecucion , y necesito hacer un select
var
query:=tquery;


source:=tdatasource.Create(source);
query:=tquery.Create(query);
source.DataSet:=query;
query.DatabaseName:=dm.TranServerDB.DatabaseName;
dbgrid2.DataSource:=source;

query.Close;
query.SQL.Clear;
query.SQL.Add('select * from ts.ts_transupportmaster');
query.Open;


hasta aqui todo bien pero si quiero filtrar el query por la llave

ej:

query.Close;
query.SQL.Clear;
query.SQL.Add('select * from ts.ts_productmaster where TRANSUPPORTID='+chr(39)+edtransupportid.Text+chr(39)+'');
query.Open;

if query.RecordCount=1 then begin
showmessage('Code already exist..')
end;

me dice este error :

Invalid column name 'TRANSUPPORTID'

El problema es que en la empresa no me permiten cargar los query con los campos de la tabla en tiempo de dise;o , de ser dinamico.

Por tanto el campo TRANSUPPORTID no existe en el query, con hago para que lo reconozca