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;