Listbox item löschen und nächstes selektieren

[KodeZwerg]

Delphi-Quellcode:

procedure TForm12.ListBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  i: Integer;
begin
  case Key of
    VK_DELETE:
      begin
        i := Self.ListBox1.ItemIndex;
        if (i > -1) then
          begin
            Self.ListBox1.Items.Delete(i);
            if (i < Self.ListBox1.Items.Count) then
              Self.ListBox1.Selected[i] := True
              else
              if Self.ListBox1.Items.Count > 0 then
                Self.ListBox1.Selected[Pred(Self.ListBox1.Items.Count)] := True;
          end;
      end;
  end;
end;

Sowas?