Delete String From Array

[Brandon]

I have a form that fills an array when an item is clicked in a list box.. How can I ensure that the array does not have duplicates? I've tried the code below.

What it does is set the size of Food to the number of items in the listbox.. then looks for a blank spot in the array to add the food too if the array does not already contain that food.. But it only works on the first try! After 2 clicks, it starts ignoring the rules and adding to the array anyway :S So.. How can I ensure only unique values get added?

Ohh and how can I delete values from the array?

begin
SetLength(Food, FoodBox.Items.Count);
K:= 0;
For I := FoodBox.Items.Count - 1 downto 0 do
begin
if FoodBox.Selected[I] then
For J:= 0 To High(Food) do
if (Food[J] = '') then
begin
For K:= 0 To High(Food) do
if Food[K] <> FoodBox.ITEMS.Strings[I] then
Food[J]:= FoodBox.Items.Strings[I];
break;
end;
end;

K:= 0;
For I:= 0 To High(Food) do
if (Food[I] <> '') then
K:= K + 1;
SetLength(Food, K);
end;

[tls]

Use InStrArr.