#80 Correct ftString missed Size

[Amarildo Lacerda]

Change AddSourceField; in TDBF.BatchMove... to correct missed size of ftString type;

Change AddSourceField to support ftCurrency ...

    case lSrcField.DataType of
      ftInteger,ftCurrency,ftFloat,ftBCD:
        FieldType := ftFloat;
      ftString,ftWideString,ftFixedChar:
      begin
        FieldType := ftString;
        Size := lSrcField.Size;
      end
    else
      FieldType := lSrcField.DataType;
    end;