удалить много строк из listbox delphi

[SonicBob]

есть к примеру листбокс

1
2
3
4
5
6
7

надо удалить строки 3-6 и получить

1
2
7

как такое сделать а у то у меня утирается как то через одну

[Stilet]

Ну методом Delete конечно же )

[SonicBob]

можешь дать код а то мой трёт не все нужные а как то странно

[SERG1980]

Процедуру свою напишите с параметрами диапазона удаления и вызывайте её когда нужно удалить

procedure DelFromLB(b,e:integer;LB:TListBox);
var i:integer;
begin
 for i:=e downto b do LB.Items.Delete(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 DelFromLB(3,6,ListBox1)
end;

конечно можно дополнить эту процедуру проверкой на вшивость (не выходит ли диапазон за кол-во строк в листбоксе и т.д.)