delphi2006 indy FTP下载的问题！送100分！高手请进！

源代码：
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
        // Directory
          ChangeFTPDir(s);
        end
      else
        begin
        // File
          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
                   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;
提示：destination file already exists
不知道是什么原因，请高手赐教！！！！！！