Kayıtları combobox'a aktarma

procedure TForm2.FormActivate(Sender: TObject);
begin
table1.First;
combobox1.Items.Add('<---- Seçsene looo--->');
while not table1.Eof do
 begin
 combobox1.Items.add(table1name.Text);
 table1.Next;
 end;
combobox1.ItemIndex:=0;
 end;
 
end.