[ilichhernandez]

no hay caso de momento.... tira un error distinto ahora..., hasta el mensaje que sale va bien.... la consulta va en la query.sql.text, pero luego lanza el siguiente error :"Could not find object".....

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var consulta,campos,donde,orden : string;
begin

campos := '*';
donde  := 'codigo_pricipal = '+ quotedStr('EC SAC 10 005');
orden  := 'codigo_principal';
Consulta := 'Select %s from resultados where %s order by %s';
//query1.active := true;
query1.sql.text := format(consulta,[campos,donde,orden]);
showmessage(query1.sql.Text);
query1.open;
end;

Saludos y gracias