Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Text := 'Select Nombre, Departamento from Empleados where Codigo = :codigo and Activo = 1';
Query1.Active := True;
Query1.ParamByName('codigo').AsString := EdNCodigo.Text;
EdSNombre.text := Query1.Fields[0].AsString;