В ComboBox данные меняются, а в Label не выводятся

procedure TForm1.ComboBox1Change(Sender: TObject);
var a  :integer;
begin
  fio.first;
  while not fio.Eof do begin
    if combobox1.Text = fio.fieldbyname('fam1').AsString then
      break;
    fio.next;
  end;
  a := fio.fieldbyname('lic1').AsInteger;
  label1.Caption := inttostr(a);
  label2.caption := inttostr(combobox1.ItemIndex);
  if teh.Locate('lic1', a, []) then
    label8.Caption := teh.fieldbyname('teh1').AsString
  else label8.Caption:='';
//label9.Caption:=form1.teh.fieldbyname('lic1').AsString
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var a:integer;
begin
  combobox1.clear;
  fio.first;
  while not fio.Eof do BEGIN
    combobox1.Items.Add(form1.fio.Fieldbyname('Fam1').asstring);
    fio.Next;
  END;
  fio.first;
  a := fio.Recordcount;
  label3.caption:=inttostr(a);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  combobox1.itemindex:=combobox1.itemindex-1;
  combobox1.OnChange(ComboBox1);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  combobox1.itemindex:=combobox1.itemindex+1;
  combobox1.OnChange(ComboBox1);
end;