Помогите исправит прогу!!!

[Ванька]

помогите исправить работает правильно но только один раз, а надо чтобы когда меняешь значение комбобокс менялись и все лейбелы!

procedure TForm2.Button2Click(Sender: TObject);
begin
 assignfile(f,'d:\3');
reset(f);
i:=0;
t:=0;
j:=0;
while not eof(f) do
begin i:=i+1;
      readln(f,s);
      b[i]:=s;
      j:=j+1;
      end;
      for i:=1 to j do
      if b[i]='Свободен' then
       combobox1.AddItem(b[i-5],form2);



         end;

procedure TForm2.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
label12.Caption:=combobox1.Text;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
 i:=1;
while J<>0 do
begin if b[i]=label12.Caption then
begin label7.Caption:=b[i];
      label8.Caption:=b[i+1];
      label9.Caption:=b[i+2];
      label10.Caption:=b[i+3];
      label11.Caption:=b[i+4];
      memo1.Lines.Add(b[i+6]);
      j:=0

end
else  i:=I+7;
end;
end;

[BOBAH13]

Бред какой-то если честно.

while not eof(f) do
begin i:=i+1;
readln(f,s);
b[i]:=s;
j:=j+1;
end;
for i:=1 to j do
if b[i]='Свободен' then
combobox1.AddItem(b[i-5],form2);
end;

что такое b ? Подазреваю массив String. Что значит i - 5 ? Откуда известно что i -5 > нижней границы b и < верхней. Вообщем с такими "выдернутыми" примерами дела не будет.