استعمال ComboBox والاستغناء عن Edit في الجداول

[سيل الجليد]

يعطيكم العافية الطريقة نجحت اخيراً وهذا الكود باكامل

PHP كود :

procedure TForm1.Button5Click(Sender: TObject);
begin
Table1.Append;
Table1.FieldByName('City').AsString :=  ComboBox1.Text;
table1.post;

ComboBox1.Text := '';
end;