Tomme felter, efter en Calcfields

procedure TfrmMain.qrySignalerCalcFields(DataSet: TDataSet);
var
  S: string;
  i,n: Integer;

begin
  S := \'\';
  for i := 1 to 8 do
  begin
    case qrySignalerSignalNummer.Value[i] of
      \'X\' :
      begin
        S := S + Copy(qrySignalerElementNummer.Value,i,1);
      end;

      \'a\'..\'i\' :
      begin
        n := StrToInt(Copy(qrySignalerElementNummer.Value,i,1));
        n := n + (ord(qrySignalerSignalNummer.Value[i]) - ord(\'a\') + 1);
        S := S + IntToStr(n mod 10);
      end;

      else
        S := S + Copy(qrySignalerSignalNummer.Value,i,1);
    end;
  end;
  qrySignalerSignal.Value := S;
  S := qrySignalerBeskrivelse.Value;
  S := S + \' \' + qrySignalerTillgsTekst.Value;
  qrySignalerBeskriv.Value := S;
end;

Signal og Beskrivelse, er CalcFields, jeg har en værdi i S i begge tilfælde, og den bliver skrevt over i Signal.Value og Beskrivelse.Vale, men jeg ser den ikke i mit DBGrid, hvad overser jeg ?