Так и я о том же. Поле это нигде не фигурирует, но проект сразу выбивает.
Попробовла так! И все заработало!!!!!!!!!!

Просто все поля выбрала, потому что , когда я добавила "KodD", он тогла начал показывать, что другие не может найти
Код:
Query3.Close;
Query3.SQL.Text:='SELECT * FROM Stab.DB WHERE Dispt <= ''' + Edit6.Text + ''' ORDER BY Dispt DESC';
Query3.Open;
if Query3.IsEmpty then
raise Exception.Create('Ничего не найдено')
else
Edit8.Text := Query3.FieldByName('DRAFT').AsString;
Это просто счастье!!! Спасибо вам, Проверила, выбирает наиболее близкое или равное!!!