Повторы в ListView

[Shouldercannon]

Как в ListView удалять посторяющиеся записи? например:
Daniel
Raw
Giorg
Giorg

И удалить строки где присутсвует #U

[Ozerich]

  Temp:array of string;
implementation

{$R *.dfm}

Function Tform1.Inmas(s: string):boolean;
var i:integer;
begin
result:=false;
for I := 0 to length(temp)-1 do
begin
if temp[i]=s then
begin
  result:=true;
  break;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
count:integer;
begin
count:=Listview1.Items.Count-1;
i:=0;
while i<=count do
begin
  if inMas(listview1.Items[i].caption) or (listview1.items[i].Caption='#U') then
  begin
    listview1.Items[i].Delete;
    dec(count);
    dec(i);
  end else
  begin
    setlength(temp,length(temp)+1);
    temp[Length(temp)-1]:=listview1.Items[i].Caption;
  end;
  inc(i);
end;

end;

[Shouldercannon]

Почему при повторном помещении данных и повторной очистке от повторяющихся записей в ListView ничего нет?

function TForm1.InMas(s: string): Boolean;
var
  i: Integer;
begin
  result := False;

  for i := 0 to Length(Temp) - 1 do
    begin
      if Temp[i] = s then
        begin
          result := True;
          Break;
        end;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  txt, sCaption: string;
  Server: TListItem;
  i, count: integer;
begin
  ListView1.Clear;

  txt := '\q\0\w\0\e\0\r\0\t\0\q\0\w\0\e\0\r\0\t\0\';

  if txt[Length(txt)] <> '\' then txt := txt + '\';

  while Length(txt) > 0 do
    begin
      Server := ListView1.Items.Add;
      sCaption := '';

      if txt[1] = '\' then
        begin
          sCaption := '';
          Delete(txt, 1, 1);
        end;

      Server.Caption := sCaption + Copy(txt, 1, Pos('\', txt) - 1);
      Delete(txt, 1, Pos('\', txt));
      Server.SubItems.Add(Copy(txt, 1, Pos('\', txt) - 1));
      Delete(txt, 1, Pos('\', txt) - 1);

      if txt = '\' then Break;
    end;

  count := ListView1.Items.Count - 1;
  i := 0;

  while i <= count do
    begin
      if InMas(ListView1.Items[i].Caption) then
        begin
          ListView1.Items[i].Delete;
          dec(count);
          dec(i);
        end
        else
        begin
          SetLength(Temp, Length(Temp) + 1);
          Temp[Length(Temp) - 1] := ListView1.Items[i].Caption;
        end;
      inc(i);
    end;
end;