Fejl med nmftp

Jeg har nogen problemer med at liste alle filer på en ftp via nmftp, min kode er denne:

procedure TfrmMain.ftpSuccess(Trans_Type: TCmdType);
var
NewItem: TListItem;
I: integer;
begin

For I := 0 to ftp.FTPDirectoryList.name.Count - 1 do
begin
NewItem := lstRight.Items.Add;
NewItem.Caption := ftp.FTPDirectoryList.name[I];
lstRight.Items.AddItem(NewItem,I);



end;
end;

Fejlene ligger ved "For I := 0 to...." og ved "NewItem.Caption :=..."