procedure TFDBatchMoveTextReader.Open(AStartTx: Boolean);
var
  i: Integer;
begin
  FEof := False;
  SetLength(FBuff, 1024);
  if Stream <> nil then
    FText := TFDTextFile.Create(Stream, False, True, False, Encoding, DataDef.EndOfLine)
  else
    FText := TFDTextFile.Create(ActualFileName, True, False, Encoding, DataDef.EndOfLine);
  if BatchMove.Analyze <> [] then begin  // <---------
    GuessFormat(FText, BatchMove.Analyze); // <---------
    FText.Stream.Position := 0;
    if DataDef.Fields.Count = 0 then
      FDException(BatchMove, [S_FD_LComp, S_FD_LComp_PDM], er_FD_DPNoTxtFlds, []);
  end;
  if DataDef.RecordFormat = rfFixedLength then
    for i := 0 to DataDef.Fields.Count - 1 do
      if DataDef.Fields[i].FieldSize < 0 then
        FDException(BatchMove, [S_FD_LComp, S_FD_LComp_PDM], er_FD_DPBadFixedSize,
          [DataDef.Fields[i].FieldName]);
end;