[[maeyanes]]

Hola...

Hay un pequeño error y es que me faltó un +, la sentencia debe quedar así:

Código Delphi [-]
                 Query3.SQL.Text := Format('select det_valor from det_evaluacion ' +
        'where det_eval = ''%s'' and det_clave like ''%s.%%'' and ' + // <--- este + fataba 
        'det_tipo = 2 order by det_valor asc', [Evalua, 
        Query1.FieldByName('det_clave').AsString]); // <--- Aquí va ) en lugar de ] 

Y la línea que me indicas es:

Código Delphi [-]
'order by det_clave', [Evalua, Query1.FieldByName('det_clave').AsString]); // <--- son parentesis no [ ]

Saludos...