Problemas con Tquery

[Coco_jac]

Hola amios del foro, me sucede algo raro. Sucede qu tengo en una unidad un codigo que genera un resultado en base a una cadena SQL que se le envia.

 
function obtenerSQL(txtquery:string):Tquery;
querysql.DatabaseName:=cnconexion;
querysql.SQL.Add(txtquery);
querysql.Open;
result:=querysql;
end;

de manera que cuando creo mi query en tiempo de ejecucion desde mi formulario lo invoco asi :

 SQLquery:=Tquery.Create(self); 
SQLquery:=ObtenerSQL(cadena);
SQLsource:=Tdatasource.Create(self);
SQLsource.DataSet:=SQLquery;
DbRUCprov.DataSource:=SQLsource; // Grid

Todo normal hasta aqui ,pero cuando jalo un TQuery y quiero hace lo mismo no me pinta nada. Aque se puede deber esto?

 
query1:=ObtenerSQL(cadena);  // query1 Tquery creado en tiempó de diseño