1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

// First
Query.SQL.Text :=  'SELECT * FROM `person` WHERE NAME = (SELECT MIN(NAME) FROM `person`) ORDER BY VORNAME DESC, STRASSE ASC, HNR DESC';
Query.Open;
LAST_RESULT_VALUE := Query.FieldByName('NAME').Value; // Letztes Ergebnis Wert zwischenspeichern

// Next
// Nächst höheren Wert rausholen mit Limit 1      
Query.SQL.Text := 'SELECT * FROM `person` WHERE NAME > :LAST_RESULT_VALUE LIMIT 1';  //Limit für Next berechnen
Query.ParamByName('LAST_RESULT_VALUE').Value := LAST_RESULT_VALUE;
Query.Open;
LAST_RESULT_TEMP_VALUE := Query.FieldByName('NAME').Value; // Ergebnis zwischenspeichern

// Jetzt anzahl letzten Wertes rausholen für Limit
Query.SQL.Text := 'SELECT COUNT(*) AS ANZAHL FROM `person` WHERE NAME = :LAST_RESULT_TEMP_VALUE';
Query.ParamByName('LAST_RESULT_VALUE').Value := LAST_RESULT_TEMP_VALUE;
Query.Open;
ANZAHL := Query.FieldByName('ANZAHL').AsInteger;

// Jetzt die eigentliche Abfrage mit dem richtigen Limit
Query.SQL.Text := 'SELECT * FROM `person` WHERE NAME > :LAST_RESULT_VALUE ORDER BY VORNAME DESC, STRASSE ASC, HNR DESC LIMIT :ANZAHL';
Query.ParamByName('LAST_RESULT_VALUE').Value := LAST_RESULT_VALUE;
Query.ParamByName('ANZAHL').AsInteger := ANZAHL;
Query.Open;

// usw. usv.