Delphi XE7 FTP_Client_Server - Delphi

[nobobic]

Всем привет! Ношел в поиске гугл прекрасный исходник https://yadi.sk/d/6zEfZCiEim9un ? помогите пожалуйста как его исправить при компиляции ошибки idFTP1.MaxLineAction, idFTP1.RecvBufferSize в Delphi 7 работает отлично а на Delphi XE7 не хочет... может кто переделает??? =)

Заранее СПАСИБО!!!

[FaTaL]

Текст ошибки в студию.

[nobobic]

Error reading if FTP1.MaxLineAction: Property Maxline does not exist.
ignore the error and contine? NOTE: ignoring the error may cause
components to be delected or property values to be lost

если игнорировать всё то при компиляции ехешника нету

[Stilet]

Версия компонентов не совпала.
1) Проигнорь все эрроры и пересохрани проект - лишние свойства должны уйти
2) Если не уходят придется в DFM ручками их убирать.

[nobobic]

не помогло красная строка =(
BytesToTransfer:=BytesToTransfer-FileSizeByName(Name);

[Stilet]

И конечно же текст ошибки как всегда придется искать в викиликс?

[nobobic]

вот след строки если их просто удалить все работает как их переделать без удалении?

BytesToTransfer:=BytesToTransfer-FileSizeByName(Name);

DirectoryListBox.Canvas.TextOut(R.L eft, Rect.Top, GroupName);

DirectoryListBox.Canvas.TextOut(R.L eft, Rect.Top, OwnerName);

DirectoryListBox.Canvas.TextOut(R.L eft, Rect.Top, OwnerPermissions + GroupPermissions + UserPermissions);