Удалить из Memo повторяющиеся строки

[Etar]

Здравствуйте!
Прошу помочь всех, кто может, очень нужно к завтрашнему утру реализовать простую задачу:
Есть Memo, в него загружают строки, например:

hello
hi
how do you do?
hi
hello
good morning

Нужно сделать так, чтобы было:

hello
hi
how do you do?
good morning

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

[Tayfun]

//Врубай двойной цикл типа
for i:=1 to n-1 do
for j:=i+1 to n do
//теперь так
if Memo1.Lines[i]=Memo1.Lines[j] then Memo1.Lines[j]:='';

[Romanbl4]

var i,j:integer;
begin
for i:=0 to Form1.Memo1.Lines.Count-1 do
begin
j:=i+1;
while j<=Form1.Memo1.Lines.Count-1 do
begin
if Form1.Memo1.Lines[j]=Form1.Memo1.Lines[i] then
begin
Form1.Memo1.Lines.Delete(j);
if j>i+1 then dec(j);
end;
inc(j);
end;
end;
end;