For-Schleife verursacht Zugriffsverletzung

[faux]

Außerdem hatte ich noch einen Programmfehler:

Delphi-Quellcode:

procedure TForm1.Senden1Click(Sender: TObject);
var
  i: Integer;
  open: boolean;
  {OpenUIN: TList;
  UINName: TStringList;}
begin
  open := true;
  if UINName.Count > 0 then
    for i := 0 to UINName.Count - 1 do
      if UINList.Strings[ContactList.ItemIndex] = UINName.Strings[i] then
        open := false;
  if open then
  begin
    ShowMessage('Öffnen!');
    UINName.Strings[i] := UINList.Strings[ContactList.ItemIndex]; //Das i ist außerhalb der For-Schleife... Deswegen gab es gleich noch eine Indexüberschreitung.... :?
  end
  else
    ShowMessage('Net!');
end;