if FileExists('\\host\sharename\sfilename') then
  begin
    renamefile('\\host\sharename\sfilename','\\host\sharename\tfilename');
    copyfile(pchar(sfilename), pchar(tfilename), False);
  end;