Adding entry to Memo from DBLookupCombobox?

Question

Delphi

Good day! How to add value from DBLookupCombobox to Memo field?

Answer 1

if DBLookupComboBox1.KeyValue<>NULL then
 Memo1.Lines.Add(DBLookupComboBox1.ListSource.DataSet.FieldByName(DBLookupComboBox1.ListField).Value);