//www.dronymc.cjb.net
//drony@mynet.com
//icq:266148308
Procedure DelMLines(Startx, Endx :Integer; Stringx : TStrings);
var x : integer;
begin
x := Endx - Startx;
repeat
Application.ProcessMessages;
Stringx.Delete(Startx);
x := x -1;
until x = 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DelMLines(0,3,listbox1.items); //0-3 arası siliniyor
end;