[YuliyaKar]

Смотрите, убрала "TOP 1", но теперь выбивает ошибку, что не найдено поле "query3KodD", этоу меня поле счетчик. Посмотрела, запрос авктивный, поле на месте. А что такое непонятно
НАписала вот так

Код:

Query3.Close;
Query3.SQL.Text:='SELECT Dispt 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('Dispt').AsString;