Hola.
No me queda en claro cuál es la columna que identifica numéricamente cada fila...
Si su nombre es
ID, intenta de este modo:
Código Delphi
[-]
function NearMaxID(Qry: TADOQuery; const PrevID: Integer): Integer;
begin
Qry.Close;
Qry.SQL.Clear;
Qry.SQL.Add('SELECT TOP 1 ID FROM TURNOCLIENTE');
Qry.SQL.Add('WHERE ID > :PRV_ID ORDER BY ID');
Qry.Parameters.ParamByName('PRV_ID').Value:= PrevID;
Qry.Open;
Result:= Qry.FieldByName('ID').AsInteger;
Qry.Close;
end;
Si se llama
id_turno, reemplazalo en cada ocurrencia de ID (en rojo).
Saludos