Проблема с чисткой повторных записей

[Shouldercannon]

Убиваю повторы в ListBox так

type
  TForm1 = class(TForm)
    function InMas(s: string):boolean;

var
  Form1: TForm1;
  Temp: array of string;

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.N7Click(Sender: TObject);
var S:TStrings;
i: integer;
n: integer;
count: integer;
begin
OpenDialog2.Execute;
Memo1.Lines.Add(OpenDialog2.FileName);

for i:=Memo1.Lines.Count-1 downto 0 do
if ''=trim(Memo1.Lines[i]) then Memo1.Lines.Delete(i);

setlength(temp,0);
count:=Memo1.Lines.Count-1;
i:=0;   
while i<=count do   
begin
if inMas(Memo1.Lines[i]) then
begin
Memo1.Lines.Delete(i);
dec(count);
dec(i);
end else
begin
setlength(temp,length(temp)+1);
temp[Length(temp)-1]:=Memo1.Lines[i];
end;
inc(i);
end;

S:=TStringList.Create;
S.Add(Memo1.Text);
S.SaveToFile(ExtractFilePath(ParamStr(0))+'paths.txt');
S.Free;

ListBox1.Clear;
ListBox1.Items.Text:=Memo1.Text;

n:=0;
while n <= ListBox1.Count - 1 do
if length(ListBox1.Items[n]) = 0
then ListBox1.Items.Delete(n)
else inc(n);

count:=ListBox1.Items.Count;
Label3.Caption:='Всего файлов '+intToStr(count)+'/'+intToStr(count);

После добавления новой записи вот что происходит:
До добавления:
D:\Games\srcds\cstrike\cfg\antirejo in0.cfg
D:\Games\srcds\cstrike\cfg\antirejo in1.cfg
D:\Games\srcds\cstrike\cfg\antirejo in2.cfg

После добавления:
D:\Games\srcds\cstrike\cfg\antirejo in0.cfg
\antirejoin1.cfg
\antirejoin2.cfg

Как исправить?

Народ ну помогите пожалуйста.

[s.Creator]

Может так?

function TForm1.Inmas(s: string):boolean;
var i: Integer;
begin
  result:=False;
  for I:= 0 to ListBox1.Count - 1 do
  begin
    if ListBox1.Items[n] = s then
    begin
      result:=True;
      break;
    end;
  end;
end;

procedure TForm1.N7Click(Sender: TObject);
var S:String;
  count: Integer;
begin

  if not OpenDialog2.Execute then
    Exit;
  S := Trim(OpenDialog2.FileName);

  if (S <> '') and (not inMas(S)) then
    ListBox1.Items.Add(S);

  count:=ListBox1.Items.Count;
  Label3.Caption:='Âñåãî ôàéëîâ '+intToStr(count)+'/'+intToStr(count);

end;

[Shouldercannon]

Спасибо работает.