удалить повторы

[FAiver]

Всем привет!
Проблема в том что необходимо удалить повторы из TMemo уже который час мучаюсь всё никак не получается уже крыша едет... хотя казалось бы задачка простая!
вобшем имеется набор строк например:

1
2
3
1
5
8
8

из него нужно удалить повторяющиеся строки!
вот мой код:

for i:=0 to Memo1.Lines.Count do
    begin
       s:=Memo1.Lines.Strings[i];
       for n:=1 to memo1.Lines.Count do
       begin
              s1:=memo1.Lines.Strings[n];
               if s=s1 then memo1.Lines.Delete(n);
       end;
    end;

уже замучился с этим кодом насколько я понимаю всё должно работать но получается что результат удаляет повторяющиеся строки но также удаляет и не повтаряющиеся строки! т.е.
если на входе будет
1
2
3
4
то на выходя я получу
1
3
что я не так делаю?
зараннее спасибо за любую помощь!

[student_63]

сохраняй в отдельный массив каждую строку и сравнивай, после этого записывай неповторяющиеся строки куда-нить в отдельное место (например, StringList), после чего очищай мемо

[Showy]

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: Integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
    for j := 0 to Memo1.Lines.Count - 1 do
      if (Memo1.Lines.Strings[i] = Memo1.Lines.Strings[j]) and (i <> j) then
        Memo1.Lines.Delete(j);
end;

[evg_m]

for i:=0 to memo1.lines.count-1 do
  // зачем смотреть уже просмотренные строки j<i b и саму себя j=i
  for j:=i+1 to memo1.lines.count-1 do 
   if memo1.lines.strings[i]=memo1.lines.strings[j] then 
     memo1.lines.strings.delete(j);

[FAiver]

всем огромное спасибо!

[Shouldercannon]

Данный способ можно настроить на ListView?