Sorter årstal

Jeg har lavet en procedure som får en tstringlist som fx kan se ud som denne:

1999
1998
1989
2002
2001
2001
2003

min kode laver det så om i en stringlist som hedder NewList, det skal komme til at se ud som dette:

1989
1998
1999
2001
2003

problemet er så at min kode virker ikke helt, hvorfor ved jeg ikke


Min kode er:
procedure YearList(List: tstringlist);

var
NewList: tstringlist;
i,j,l: integer;
Find: integer;
begin
Find := 0;
      NewLIst := tstringlist.Create;
        for i := 0 to List.Count - 1 do
        begin
                for j := 0 to NewList.Count - 1 do
                begin
                        if Find = 0 then
                        begin
                                if List[i] = NewList[j] then
                                begin
                                Find := 1;
                                end;
                                if List[i] <> NewList[j] then
                                begin
                                Find := 0;
                                end;
                        end;
                       
                end;
                if Find = 0 then
                begin
                NewList.Add(List[i]);
                end;

        end;
        NewList.Sort;

     
end;