关于FTP的问题！请求帮助！

procedure TForm1.actRemoteChangeDirExecute(Sender: TObject);
var
  LS:TStringList;
  FileCount:Integer;
  newItem:TListItem;
  FolderCount:Integer;
begin
  try
    LS := TStringList.Create;
    IdFTP1.ChangeDir(suiComboBox1.Text);
    suiListView3.Items.Clear;
    IdFTP1.List(LS);
    FolderCount := 0;
      for FileCount := 0 to LS.Count -1 do
    begin
      if IdFTP1.DirectoryListing.Items[FileCount].ItemType = ditDirectory
        then
          begin
            newItem := suiListView3.Items.Insert(FolderCount);
            newItem.ImageIndex := 0;
            newItem.SubItems.Add('文件夹');
          end
            else
              begin
                newItem := suiListView3.Items.Add;
                newItem.ImageIndex := 1;
                newItem.SubItems.Add('');
              end;
                newItem.Caption;
                IdFTP1.DirectoryListing.Items[FileCount].FileName;
                newItem.SubItems.Add(IntToStr(IdFTP1.DirectoryListing.Items[FileCount].Size));
                newItem.SubItems.Add(DateToStr(IdFTP1.DirectoryListing.Items[FileCount].ModifiedDate));
              end;
            finally
              LS.Free;
    end;
end;
编译的时候出错！不知道如何修改！请求各位的帮助！谢谢各位！