[JOSEA]

Raro, raro, raro ... quizas con esto te funcioneQuery1.SQL.Text := 'Select "Nombre" as minombre, Departamento from Empleados where Codigo = :codigo and Activo = 1';Query1.Active := True;Query1.ParamByName('codigo').AsString := EdNCodigo.Text;EdSNombre.text := Query1.fieldbyname['minombre'].AsString;