Можно так попробовать:
Код:
Q.SQL.Text := 'select (select max(KodD) from Table1 where KodD < :Value1) Min, (select min(KodD) from Table1 where KodD > :Value2) Max';
Q.Parameters.ParamValues['Value1'] := StrToInt(Edit1.Text);
Q.Parameters.ParamValues['Value2'] := StrToInt(Edit1.Text);
Q.Open;
результат будет лежать в Q['Min'] и Q['Max'] |