Удаление дубликатов с ListBox

[celovec]

Есть такая конструкция:

  for I := 1 to Max.Count do begin
   ListBox1.Items.Add(Max.box.Item[I].Name);
  end;

ListBox1 получается подобного содержания:

Андрей|22
Вася|433
Коля
Динис|lkjklj
Викуля
Вася|доло
Коля|2322

Необходимо избавиться от дубликатов, неважно что после |
Если имя повторяется эту строчку писать не нужно.

Если для этого не нужно писать какую либо серьезную сортировку расскажите пожалуйста как это сделать.

[3D Hunter]

var
  i,j,k:Integer;
  s:string;
begin
  for i:=listbox1.count-1 downto 0 do
  begin
    k:=pos('|',listbox1.items[i]);
    s:=copy(listbox1.items[i],1,k-1);
    for j:=listbox1.count-1 downto i+1 do
      if Pos(s,listbox1.items[j])=1 then listbox1.Items.delete(j);
  end;
end;

[celovec]

Спасибо большое.

[celovec]

Эти несколько дней тестировал вариант от 3D Hunter, но он пропускает некоторые строки. К сожалению пока не могу понять почему.

[artemavd]

Может пробел где-то стоит?

[Аватар]

1.Не учтено, что может быть просто Коля без |
2.Не учтено, что может быть Вася| и Васяя| Тогда Васяя удалится, если Вася будет ближе к началу списка, хотя это и не дубликат

[3D Hunter]

Столько времени прошло и вы не смогли понять элементарный код?
Тогда остается только помочь еще раз:

var
  i,j:Integer;
  s:string;

  function GetString(const AIndex:Integer):AnsiString;
  var
    k:integer; 
  begin
    k:=pos('|',listbox1.items[AIndex]);
    if k=0 then k:=High(Integer);
    Result:=copy(listbox1.items[AIndex],1,k-1);    
  end;
   
begin
  for i:=listbox1.count-1 downto 0 do
  begin
    s:=GetString(i);
    for j:=listbox1.count-1 downto i+1 do
      if GetString(j)=s then listbox1.Items.delete(j);
  end;
end;

[hespers]

3D Hunter спасибо.