1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm2.LB_Aus_ArtikelDblClick(Sender: TObject);
var
i: Integer;
begin
  with LB_Aus_Artikel do
  begin
    i := 0;
    while (i <= Items.Count - 1) and (SelCount > 0) do
      begin
        while (i <= Items.Count - 1) and Selected[i] do
          Items.Delete(i);
          ArtikelAuswahl[i].Ind:='';
          ArtikelAuswahl[i].Anzahl:='';
          ArtikelAuswahl[i].Name:='';
          LB_Aus_ArtikelAnz.items.delete(i);
          inc(i);
      end;
      ArtikelAnz:=ArtikelAnz - 1;

  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm2.LB_Aus_ArtikelDblClick(Sender: TObject);
var
i: Integer;
begin
  with LB_Aus_Artikel do
  begin
    i := 0;
    while (i <= Items.Count - 1) and (SelCount > 0) do
    begin
      while (i <= Items.Count - 1) and Selected[i] do
        Items.Delete(i);
      // und hier ist die innere while Schleife zu Ende!
      ArtikelAuswahl[i].Ind:='';
      ArtikelAuswahl[i].Anzahl:='';
      ArtikelAuswahl[i].Name:='';
      LB_Aus_ArtikelAnz.items.delete(i);
      inc(i);
    end;
    ArtikelAnz:=ArtikelAnz - 1;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm2.LB_Aus_ArtikelDblClick(Sender: TObject);
var
  CurrentIndex: Integer;
begin
  CurrentIndex := LB_Aus_Artikel.ItemIndex;
  if CurrentIndex >= 0 then
  begin
    LB_Aus_ArtikelAnz.Items.Delete(CurrentIndex);
    LB_Aus_Artikel.Items.Delete(CurrentIndex); 
    ...
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm2.LB_Aus_ArtikelDblClick(Sender: TObject);
  var
    i: Integer;
begin
  for i := LB_Aus_Artikel.Count -1 downto 0 do
    if LB_Aus_Artikel.Selected[i] then begin
      LB_Aus_Artikel.Items.Delete(i); 
      LB_Aus_ArtikelAnz.Items.Delete(i);
      //... 
    end;
end;