You need to use:

  FDQuery1.FetchOptions.Unidirectional := True;

Before the open statement. You can lose the:

  FDQuery1.FetchOptions.Mode := fmAll;