procedure TForm1.Button1Click(Sender: TObject);
var
file_key : string;
dir_key : string;
fData : TextFile;
S : string;
Lencount : integer;
i : integer;
comma : string;
gubun : string;
fname : string;
begin

  file_key := 'version.ini';
  dir_key  := 'c:\tmp\';
  FileMode := 0;

  with  NMFTP1  do
    begin
      Host := '172.18.1.15';
      Port := 21;
      Userid := 'portal_ftp1';
      password := 'portal';
      disconnect;
      connect;
      changedir('papco/설비관리/');

      if FileExists(dir_key + file_key) then
        begin
          AssignFile(fData, dir_key + file_key);
          Reset(fData);
          while not EOF(fData) do
            begin
              Readln (fData, S);     {여기서 too many parameters 라는 에러가 발생하는데 }
              lencount := length(S);

              for i := 1 to lencount do
                comma := copy(S,i,1);
                if comma = ',' then
                  begin
                    gubun := copy(S,1,lencount -1);
                    fname := copy(S,lencount,50);
                    if gubun = 'Maximo' then
                      begin
                      changedir('papco/설비관리/maximo/');
                      download(fname,'c:\tmp\maximo\' + fname);
                      end;
                    if gubun = 'Report' then
                      begin
                      changedir('papco/설비관리/report/');
                      download(fname,'c:\tmp\report\' + fname);
                      end;
                  end;
            end;
            CloseFile(fData);
        end;
    end;
end;

위 소스에서 Readln 부분에서 에러가 발생하는데 어떤 문제인지 모르겠습니다.