WFichero := DirDestino + '' + NombreLnk;
WFichero := IncludeTrailingBackslash(DirDestino) + NombreLnk;