Code
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;
как то так