حذف الأشياء المتكرره في الكائن ListView

اخوتي الأعزاء اليكم هذا الكود الي سيساعدكم في حذف الأشياء المتكررة في الكائن ListView

var
i,k:integer;
begin
for i:=ListView1.Items.Count-1 downto 0 do begin
for k:=i+1 to ListView1.Items.Count-1 do begin
if ListView1.Items.Caption=ListView1.Items[k].Caption then
ListView1.Items.Delete(k);
end;
end;

وتقبلوا اطيب تحياتي اخوكم SUM