var
  Form31: TForm31;
  NIM: TNotifyIconData;
  OpenUIN: TList;
  UINName, UINList: TStringList;
  Status: TICQStateType;
  SSL: TOnChangeResponse;

procedure TForm31.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 do //Hier tritt die Exception auf....
      if UINList.Strings[ContactList.ItemIndex] = UINName.Strings[i] then
        open := false;
  if open then
  begin
    ShowMessage('Öffnen!');
    UINName.Strings[i] := UINList.Strings[ContactList.ItemIndex];
  end
  else
    ShowMessage('Net!');
end;

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt CQ.exe ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 0047DE9F in Modul 'CQ.exe'. Lesen von Adresse 00000000'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK
---------------------------