Не могу понять где допустил ошибку.
DBLookupComboBox1. При заполнении базы этот реквизит например не обязателен можно (пропустить или выбрать). А при сохранении требует его заполнения.

1 Вариант - if q1.KeyValue = '' then Table1.FieldByName('q1').AsString := ' ';
Table1.FieldByName('q1').AsString := q1.KeyValue;

1 Вариант - if q1.KeyValue = '' then Table1.FieldByName('q1').AsString := ' '; else
Table1.FieldByName('q1').AsString := q1.KeyValue;
И так и так пробывал - не чего.

Заранее спасибо!