estou com um problema e no consigo resolver

tipo assim tenho um form de pesquia com data inicial e data final, entretanto ele funciona certo dentro desse parametros.
o problema é se eu precisar buscar tipo um valor anterior a isso como um caixa por exemplo

o codigo que eu estou usando é assim

procedure TControle_cxa.BTOKClick(Sender: TObject);
begin
Q01:=0;
Q02:=0;
Q03:=0;
SF4:=' ';
SFa4:=' ';
if MaskEdit1.text = ' / / ' then
begin
Application.MessageBox('Informe a data inicial !','Erro',16);
ActiveControl:= maskedit1;
abort;
end;

if MaskEdit2.text = ' / / ' then
begin
Application.MessageBox('Informe a data final !','Erro',16);
ActiveControl:= maskedit2;
abort;
end;
if strtodate(MaskEdit1.text) > strtodate(maskedit2.text) then
begin
Application.MessageBox('A data inicial deve ser menor que a data final !','Erro',16);
ActiveControl:= maskedit1;
abort;
end;
screen.Cursor:= crHourGlass;
RPrint1.BeginDoc;
RPrint1.Adjust(100);
begin
impri_cabe;
with QryAuxiliar do begin
QryAuxiliar.close;
QryAuxiliar.sql.clear; //era _01 and DESCRICAOFAMILIA >= :CodigoIni and DESCRICAOFAMILIA <= :CodigoFim
QryAuxiliar.sql.add('Select * from AM_CXA where DATALANC>= :DataIni and DATALANC<= :DataFim order by DATALANC '); //NUMEROLANC/
QryAuxiliar.ParamByName('DataIni').asdatetime := strtodate(MaskEdit1.text);
QryAuxiliar.ParamByName('DataFim').asdatetime := strtodate(MaskEdit2.text);
QryAuxiliar.open;
screen.Cursor:= crDefault;
QryAuxiliar.first;
if QryAuxiliarDATALANC.AsString>=DataIni then
begin
gerais;
end;
if RPrint1.Row>50 then
begin
if not QryAuxiliar.eof then
begin
RPrint1.Out ('________________________________________________________________________________________________________________', 15, [PcLineFeed]); // era 15

ate aqui ok so que eu preciso ler os dados anteriores para montar o valor do saldo anterior,,,,

algum dos nobres colegar poderia ajudar??

desde ja agradeço