ListBox ItemAtPos macht manchmal Probleme

[leonreiser]

Hi Leute.
Ich habe ein Problem mit einem Abschnitt in meinem Programm.
Dieser Abschnitt soll bei einem Rechtklick auf ein Item in meiner ListBox, den Text
des entsprechenden Items ändern. Das klappt auch, aber nur manchmal. Wenn ich z.B. neue
Elemente zu der listbox hinzufüge, dann passiert es manchmal dass die letzten 1-3 Einträge
nichtmehr klickbar sind. Ich realisiere das ganze mit ItemAtPos() was mir dann bei diesen Einträgen
den Index -1 zeigt. Daneben habe ich auch nicht geklickt, da bin ich mir sicher. Ich habe auch bis jetzt
noch nicht herausgefunden wie ich den Fehler zuverlässig reproduzieren kann. Manchmal klappt alles.
Aber hier erstmal der Code:

Delphi-Quellcode:

procedure TForm2.ListBox2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
cursorpos : TPoint;
ItmIndx : integer;
begin
  Label1.Caption := ListBox2.Items[ListBox2.COunt-1];
  if Button=mbRight then
  begin
    cursorpos.X := X;
    cursorpos.Y := y;
    ItmIndx := 0;
    ItmIndx := ListBox1.ItemAtPos(cursorpos,true);
    if ItmIndx = -1 then begin
    end
      //vl Fokus setzen weil er durch ungültige Position verloren geht??
    else begin
      ListBox2.ItemIndex := ItmIndx;
      try
      if AnsiLastChar(ListBox2.Items[ItmIndx]) = '▲' then begin
        ListBox2.Items[ItmIndx] := StringReplace(ListBox2.Items[ItmIndx], '▲', '▼',[rfReplaceAll, rfIgnoreCase]);
      end
      else if AnsiLastChar(ListBox2.Items[ItmIndx]) = '▼' then begin
        ListBox2.Items[ItmIndx] := StringReplace(ListBox2.Items[ItmIndx], '▼','▲',[rfReplaceAll , rfIgnoreCase]);
      end;
      except
      end;
    end;
  end;
end;

So der Code wär vl. auch eleganter möglich gewesen, aber mir geht es ja zurzeit ertmal um den Bugfix.
Die Ästhetik muss sich noch gedulden.
Dann hoffe ich mal dass mir jemand helfen kann.
Bin neu hier im Forum, also wenn ich was an der Art meiner Fragestellung ändern soll, gerne bescheid sagen, besonders welche Kategorie(hier Algorithmen, Datenstrukturen...) für solch eine Frage richtig ist.
Danke schonmal