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

[سيل الجليد]

اضفت حقل من نوع date

اضفت تقويم في الفورم احتاج اثناء الضغط على الزر يدخل المدينه مع التاريخ المحدد

هل هذا الكود صحيح

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin

Table1.Append;
Table1.FieldByName('City').AsString :=  ComboBox1.Text;
Table1.FieldByName('Date').AsString :=  DateTimePicker1.Name;
table1.post;

ComboBox1.Text := '';

end;