Listbox Multiselect

[simonko]

hab folgendes Problem:
Ich kann in einer Listbox 2 items auswählen. Ich brauche dann den index der zwei Einträge um dann später eine funktion aufzurufen. ich hab das folgendermasen programmiert. geht das auch einfacher?

Delphi-Quellcode:

var
  i             : integer;
  st1,st2       : integer;
  erstegefunden : boolean;
begin
  erstegefunden:=false;
  if Listbox1.Selcount=2 then begin begin
    for i:=Listbox1.Items.Count-1 downto 0 do
      if (Listbox1.Selected[i]=true) then
        if erstegefunden=false then begin
          st1:=i;
          erstegefunden:=true;
        end else
          st2:=i;
      end;
  (*Hier wird die funktion mit a und b aufgerufen*)