No jala todos los campos en query

[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;

[JOSEA]

Perdon, perrdon por la edicion anterior

Código Delphi [-]
Query1.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;