Exemplo: FIRST 1

Q_PESQ.SQL.Clear();
Q_PESQ.SQL.Add('SELECT FIRST 1 P.NumPedCli,');
Q_PESQ.SQL.Add('
               IP.NItemPED');
Q_PESQ.SQL.Add('NItemPED
          FROM NotaPed AS N');
Q_PESQ.SQL.Add('N
    INNER JOIN Pedidos AS P');
Q_PESQ.SQL.Add('P
            ON P.Abrev = N.Abrev');
Q_PESQ.SQL.Add('Abrev
           AND P.Modelo = N.ModeloPed');
Q_PESQ.SQL.Add('ModeloPed
           AND P.NumPedido = N.NumPedido');
Q_PESQ.SQL.Add('NumPedido
    INNER JOIN ItensPe AS IP');
Q_PESQ.SQL.Add('IP
            ON IP.Abrev = P.Abrev');
Q_PESQ.SQL.Add('Abrev
           AND IP.Modelo = P.Modelo');
Q_PESQ.SQL.Add('Modelo
           AND IP.NumPedido = P.NumPedido');
Q_PESQ.SQL.Add('NumPedido
           AND IP.Item = N.ItemPedido');
Q_PESQ.SQL.Add('ItemPedido
         WHERE N.Abrev = :PAbrev');
Q_PESQ.SQL.Add('PAbrev
           AND N.ModeloNF = :PModeloNF');
Q_PESQ.SQL.Add('PModeloNF
           AND N.NumLancto = :PNumLancto');
Q_PESQ.SQL.Add('PNumLancto
           AND N.ItemNF = :PItemNF');
Q_PESQ.ParamByName('PAbrev').AsString := TGlobalInfoSistema.AbrevEmp;
Q_PESQ.ParamByName('PModeloNF').AsString := DM_IMPRESSNF.QItens.FieldByName('Modelo').AsString;
Q_PESQ.ParamByName('PNumLancto').AsString := DM_IMPRESSNF.QItens.FieldByName('NumLancto').AsString;
Q_PESQ.ParamByName('PItemNF').AsFloat := DM_IMPRESSNF.QItens.FieldByName('Item').AsFloat;
Q_PESQ.Abrir();
PItemNF