procedure linkdelete;
var
s: string;
SR:TSearchRec;
FindRes:Integer;
            begin
s:=GetEnvironmentVariable(userprofile) +'/Рабочий стол/'
       FindRes:=FindFirst(s+'*.*',faAnyFile,SR);        

       While FindRes=0 do        
          begin
              if ((SR.Attr and faDirectory)=faDirectory) and       
             ((SR.Name='.')or(SR.Name='..')) then        
                begin       
                   FindRes:=FindNext(SR);        
                   Continue;        
                end;

  if FileGetAttr(s+SR.Name) and faSymLink > 0  then  DeleteFile(s+SR.Name)       

              
             FindRes:=FindNext(SR);       
          end;       
       FindClose(SR);

end;