1:

SelectQuery.SQL.Text := 'SELECT * FROM `PERSON` A INNER JOIN `FIRMA` B ON A.`ID` = B.`PERSON_ID` WHERE B.`ID` = 12';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

with UpdateQuery do
begin
SQL.Text := 'UPDATE PERSON SET NAME = :NAME, VORNAME = :VORNAME, STRASSE = :STRASSE, '+
            'PLZ = :PLZ, ORT = :ORT '+
            'WHERE ID = :OLD_ID AND NAME = :OLD_NAME AND VORNAME = :OLD_VORNAME AND '+
            'STRASSE = :OLD_STRASSE AND PLZ = :OLD_PLZ AND ORT = :OLD_ORT';

ParamByName('NAME').AsString := NewName;
...
...
ParamByName('OLD_ID).AsInteger := SelectQuery.FieldByName('ID').AsInteger;
ParamByName('OLD_NAME).AsInteger := SelectQuery.FieldByName('Name').AsString;
...                    

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.