데모버전을 다운받아 테스트 하는데 자꾸에러가 납니다.

Delhpi 2007  indy10 입니다.

소스중
procedure TfrmMain.actDownloadFileExecute(Sender: TObject);
var
  i : Integer;
  ext,
  s : String;
  b : boolean;
begin
  if lvFiles.Focused then
    begin
      if Assigned(lvFiles.Selected) then
        lbDirectory.ItemIndex := lbDirectory.Items.IndexOf(lvFiles.Selected.Caption)
      else
        lbDirectory.ItemIndex := -1;
    end
  else
      if Assigned(tvFolders.Selected) then
        lbDirectory.ItemIndex := lbDirectory.Items.IndexOf(tvFolders.Selected.Text)
      else
        lbDirectory.ItemIndex := -1;

  i := lbDirectory.ItemIndex;
  if i <> -1 then
    begin
      s := lbDirectory.Items[i];
      i := FTP.Size(s);
      if i = -1 then
        begin
          ChangeFTPDir(s);
        end
      else
        begin
          ext := ExtractFileExt(s);
          SaveFile.Filter := ext + ' files|*' + ext + '|All Files|*.*';
          SaveFile.FileName := s;
          if SaveFile.Execute then
            begin
              b := true;
              if FileExists(SaveFile.FileName) then
                if MessageDlg('File exists overwrite?', mtWarning, [mbYes,mbNo], 0) = mrYes then
                  DeleteFile(SaveFile.FileName);

              if ASCIIText1.Checked then
                FTP.TransferType := ftASCII
              else
                FTP.TransferType := ftBinary;

              if b then
  //여기서 Project IndyFTP.exe raisedy exception class EIDFTPFileAlreadyExists with message:  
  //          Destination file already exists
  // 이라는 에러가 납니다.
                FTP.Get(s, SaveFile.FileName, True, FTP.ResumeSupported);
  //도와주세요. 제발
            end;
        end;
    end
  else
    MessageDlg('You must first select a file to download from the site.', mtWarning, [mbOK], 0);
end;