Код:
query3.SQl.Text:='select *FROM Stab.DB where Dispt <= ''' + Edit6.Text + ''' ORDER BY Dispt DESC';
Или я че-то не понимаю или лыжи не едут. Это как же вы таким запросом получите граничные значения? Вы получите так все что меньше или равно критерию. Зачем вы еще и равно делаете, мне неясно. Если у вас не получается вернуть одним запросом сразу границы, то можно и двумя запросами это сделать:
Код:
Q.SQL.Text := 'select max(KodD) as Min from Table1 where KodD < :Value';
Q.Parameters.ParamValues['Value'] := StrToInt(Edit1.Text);
Q.Open;
Min := Q['Min'];
Q.SQL.Text := 'select min(KodD) as Max from Table1 where KodD > :Value';
Q.Parameters.ParamValues['Value'] := StrToInt(Edit1.Text);
Q.Open;
Max := Q['Max'];