PosNummern in Rechnungsdaten

[LOMBI]

Guten Abend,

ich bekomme das mit den Positionsnummern einfach nicht hin:

Delphi-Quellcode:

function GetPosNr(fldName, tblName: String): Integer;
var
  QueryRechnungsdaten:TQuery;
begin
  with TQuery.Create(nil) do
    begin
      DatabaseName := Rechnungen.DatabaseName;
      SQL.Text := Format('SELECT MAX(%s) FROM %s WHERE
                  Rechnungsdaten.RechnungsNr= :RechnungsNr', 
                  [fldName, tblName]);              
      ParamByName('RechnungsNr') := RechnungsNr;
      Open;
      Result := succ(Fields[0].AsInteger;
      Close;
    end;
  end;

procedure FRechnungen.QueryRechnungsdatenAfterInsert(DataSet: TDataSet);
begin
  with DataSet do
    begin
      if FieldByName('PosNr').IsNull then
        FieldByName('PosNr').AsInteger := GetPosNr('PosNr',
        Rechnungsdaten');
        QueryRechnungsdaten['RechnungsNr'] :=
        QueryRechnungen['RechnungsNr']
        ...
       end;

Fehlermeldung: "Undefinierter Bezeichner 'RechnungsNr'"

Delphi-Quellcode:

SQL.Text := Format('SELECT MAX(%s) FROM %s WHERE
                  Rechnungsdaten.RechnungsNr= :RechnungsNr', 
      //":RechnungsNr" stammt aus Tabelle Rechnungen und ist vom Typ
          I(nteger)!

Wer hilft mir bitte nochmals?

Grüße
Lombi