التعامل مع combobox

[dalliroot]

كود :

procedure TForm1.GetFields; var i: Integer; begin ComboBox1.Clear; ClientsTable.Close; ClientsTable.Open; for i := 0 to ClientsTable.FieldCount -1 do begin   ComboBox1.Items.Add(ClientsTable.Fields[i].Name); end; end; procedure TForm1.ComboBox1Change(Sender: TObject); begin ClientsTable.fieldbyname(combobox1.Text); ClientsTable.post; end; procedure TForm1.FormCreate(Sender: TObject); begin GetFields; end;

تظهر الحقول في الكومبوبوكس فارغة بدون اسماء كما في الصورة 

حتى وعند اختيار احد الحقول الفارغة تلك يحدث خطأ (clientstable: field not found)