[Страдалецъ]

А что в нем так? Вот что это такое?

Код:

 SetLength(byteArray, 5);
  for i := 0 to (Length(byteArray)-1) do
    begin
      byteArray[0] := StrToInt(Edit1.Text);
      byteArray[1] := StrToInt(Edit2.Text);
      byteArray[2] := StrToInt(Edit3.Text);
      byteArray[3] := StrToInt(Edit4.Text);
      byteArray[4] := StrToInt(Edit5.Text);
    end;

На кой, вы это делаете? 5 раз присвоить одни и те-же значения. Типа для надежности?

Дальше идем.

Код:

z1:=0;
  while z1 > 0 do

z1 = 0, и согласно условию выполнять цикл не надо, значит весь цикл вообще никогда не выполняется.