FTP некорректная загрузка файлов

[ZBEP]

Здравствуйте!
Написал простенький FTP Uploader
Но он почему-но некорректно работает при загрузке файлов на внешние FTP (на локальный фтп грузит все корректно).

Вот процедура загрузки файлов на FTP:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var ms:  TMemoryStream;
ftp: TIdFTP;
i:integer;
AltAdr:String;
begin
if s1.Cells[1,0]<>'' then
begin
  //Memo1.Text:='';
  ftp:=TIdFTP.Create(Application);
  ms:=TMemoryStream.Create;
  try
    try
      if Adr.Text='' then Adr.Text :='ftp.kubanip5.nichost.ru';
      if Port.Text='' then Port.Text:='21';
      ftp.Host:=Adr.Text;
      ftp.Port:=strtoint(Port.Text);
      ftp.Username:=Login.Text;
      ftp.Password:=Pass.Text;
      if ftp.Username='' then ftp.Username:='********';
      if ftp.Password='' then ftp.Password:='********';
      ftp.Connect;
      if DirFTP.Text='' then DirFTP.Text:='/';
      if DirFTP.Text[length(DirFTP.Text)]<>'/' then DirFTP.Text:=DirFTP.Text+'/';
      if DirFTP.Text[1]<>'/' then DirFTP.Text:='/'+DirFTP.Text;
      if CheckBox1.Checked=True then ftp.MakeDir(DirFTP.text);
      ftp.ChangeDir(DirFTP.text);
      for i:=0 to S1.RowCount-1 do
      begin
        ftp.Put(S1.Cells[0,i]+S1.Cells[1,i],S1.Cells[1,i],false);
        AltAdr:=Adr.Text;
        if AltAdr='ftp.kubanip5.nichost.ru' then AltAdr:='http://кубаньипотека.рф/download';
        Links.Lines.Add(AltAdr+DirFTP.text+S1.Cells[1,i]);
      end;
      ShowMessage('Отправлено');
    finally
      ms.Free; ftp.Free;
    end;
  except
    ShowMessage('Отправка не удалась');
  end;
end;

end;

Компилировал на Delphi XE.
Подскажите в чем может быть проблема?
Возможно дело в XE, может кто-нить скомпилировать проект на D7 и проверить работоспособность проги?
Других вариантов у меня пока нет.

[ZBEP]

Проблема решена.
теперь заливаю файлы так:

procedure TForm1.upload(filename:pchar; ftpfilename:pchar);
var Username,Password,AltAdr,Folder:String;
begin
  Folder:=DirFtp.Text;
  Username:=login.Text;
  Password:=pass.text;
  if Username='' then Username:='********';
  if Password='' then Password:='********';
  inet_open:= internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
  conn_param:=internetconnect(inet_open,PChar(adr.Text),strtoint(Port.Text),PChar(Username),PChar(Password),INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);

  if not FtpSetCurrentDirectory(conn_param, PChar(Folder)) then
  begin
    if FtpCreateDirectory(conn_param, PChar(Folder)) then
    FtpSetCurrentDirectory(conn_param, PChar(Folder));
  end;

  if ftpputfile(conn_param,filename,ftpfilename,FTP_TRANSFER_TYPE_UNKNOWN,0)=false then
  ShowMessage('Ошибка. Загрузка не удалась!');
  internetclosehandle(conn_param);
  internetclosehandle(inet_open) ;
END;