[Ванька]

Помогите исправить прогу.
Она работает но только один раз а поменяв значение комбобокс нужно поменять все остальное!!!

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;