[[Lepe]]

Otra más:

Código Delphi [-]
const genericSelect = 'select %s FROM %s where %s order by %s'
var OrderBy:string;

begin
 OrderBy := 'codigo';
  qry.Sql.text := format( genericSelect,
                                 ['Nombre, codigo',
                                 table1.tablename,
                                 'codigo = 5',
                                 OrderBy]);

saludos.