title: TIdFtp causing List out of bounds error on first run only
body: <p>I have a problem with the following code snip</p>
  
  <p>the first time after start my program runs through this function the IdFtp.List command gives the following error</p>
  
  <blockquote>
    <p>EListError with message 'List index out of bounds (1)'</p>
  </blockquote>
  
  <p>But on second run no error occurs</p>
  
  <pre><code>procedure TForm1.FinnaSkrar(FileFilter: string; FtpFiles : TStringlist);
  var
    i : Integer;
  begin
    try    
      IdFTP1.List(FileFilter, False);
    except
      ShowMessage('No file found !');
      Exit;
    end;
    for I := 0 to IdFTP1.DirectoryListing.Count - 1 do 
      FtpFiles.Add(IdFTP1.DirectoryListing.Items[i].FileName);
  end;
  </code></pre>
  
  <p>I have tried upgrading Indy to the latest version build 4734 on Delphi 2010
  , but no success</p>
  
  <p>Some further info, at the time of error
  The call stack shows</p>
  
  <ul>
  <li>:7547b9bc KERNELBASE.RaiseException + 0x58  </li>
  <li>:0043652e TList.Get + $1A</li>
  <li>:0043652e TList.Get + $1A  </li>
  <li>IdComponent.TIdComponent.EndWork(wmRead)  </li>
  <li>IdComponent.TIdComponent.EndWork(wmRead)   </li>
  <li>IdComponent.TIdComponent.EndWork(wmRead)   </li>
  <li>IdIOHandler.TIdIOHandler.ReadStream($229ADD0,-1,True)   </li>
  <li>IdFTP.TIdFTP.InternalGet('NLST REKIM-<em>0130</em>',$229ADD0,False)   </li>
  <li>IdFTP.TIdFTP.List(nil,'REKIM-<em>0130</em>',False)   </li>
  <li>IdFTP.TIdFTP.List('REKIM-<em>0130</em>',False)   </li>
  <li>unitMainTntNavi.TfrmMain.FinnaSkrar('REKIM-<em>0130</em>',$22BE730)</li>
  </ul>
  
  <p>The OnDirParseStart and OnRetrived Dir have not been triggered </p>
  
  <p>and the IdFTP1.DirFormat string is empty </p>
  
  <p>calling IdFTP1.RetrieveCurrentDir first don't help</p>
  
  <p>calling IdFTP1.List(nil) has the same result </p>