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

[cpilq]

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;


编译的时候出错！不知道如何修改！请求各位的帮助！谢谢各位！

[cpilq]

没有人进来！我自己顶一下！哈哈！

[yanglingbi]

up

[whxhz80]

路过，先收藏，等待解决方法

[皮皮爸]

没用过！帮你顶！

[chris_crow]

up

[cpilq]

问题已解决！大家分分了哦！