Delphi FTP rename a file

I need an object that will rename FileName1 into FileName2 using FTP The code must be in Delphi5 and ICS components should be used ([login to view URL]). The object skeleton will be with [login to view URL](Self) do public HostDir_ :string; FileName1_ :string; FileName2_ :string; function Execute:integer; // 0=success error codes <0 end; The object should use the attached code [login to view URL] (which is taken from ICS demos). The coder will return a minimal test EXE application. The attached code is meant for your information only. It won't compile. The complete code will be given to the selected coder.