面视问题（record）

找出以下程序的错误：
======================================
有一结构如下：
  TFeelRec  =record
    FeelID     :Integer;
    CalcType   :char;
    CalcAmt    :Double;
  end;以下程序把数据集的内容写入结构变量FLastFeelRec:TFeelRec 中：
  with DataSet, FLastFeelRec do
  begin
    FeelID      := FieldByName('FeelID').AsInteger;
    CalcType    := FieldByName('CalcType').AsString[1];
    CalcAmt     := FieldByName('CalcAmt').AsFloat;
  end;