Некорректное удаление из StringList (Delphi)

[CAMOBAP]

Появилась небольшая проблемка. На форме:
Button (x2)
ListBox (x1)
Label (x7)
При нажатие на Button1 происходит считывание из файла в stringlist:

procedure TForm1.Button1Click(Sender: TObject);
begin
sl:=TStringList.Create;
sl.LoadFromfile('1.txt');
k:=5;
while (k<sl.count-1) do
Begin
  ListBox1.Items.Append(sl[k]);
  inc(k,8);
end;
end;

При нажатие на любой элемент ListBox, на Label's выводиться строки из string list:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
z:=((12*ListBox1.ItemIndex)-4*((ListBox1.ItemIndex)-1));
Label1.Caption:=sl[z];inc(z);
Label2.Caption:=sl[z];inc(z);
Label3.Caption:=sl[z];inc(z);
Label4.Caption:=sl[z];inc(z);
Label5.Caption:=sl[z];inc(z);
Label6.Caption:=sl[z];inc(z);
Label7.Caption:=sl[z];
end;

Затем по нажатию на Button2 происходить удаление строк из StringList:

procedure TForm2.sButtonClick(Sender: TObject);
begin
z:=((12*ListBox1.ItemIndex)-4*((ListBox1.ItemIndex)-1));
sl.Delete(z);inc(z);
sl.Delete(z);inc(z);
sl.Delete(z);inc(z);
sl.Delete(z);inc(z);
sl.Delete(z);inc(z);
sl.Delete(z);inc(z);
sl.Delete(z);
ListBox1.DeleteSelected;
end;

Но при удаление, структура StringList сбивается и при повторном выборе из ListBox выводятся совсем не те строки.
Подскажите пожалуйста.