Como pegar informação do BD Delphi 7

{==========================================================================}
{============================= IMPRESSAO DO CABEÇALHO =====================}
{==========================================================================}
if dm.IBTransaction.Active then
dm.IBTransaction.Commit;
dm.IBTransaction.StartTransaction;
with dm.QConsulta do
begin
close;
sql.Clear;
sql.Add('SELECT RAZAO_EMP, CNPJ_EMP, INSC_EMP, END_EMP, BAI_EMP, CID_EMP, EST_EMP, CEP_EMP ' +
'FROM EMPRESA WHERE COD_EMP = :CODEMP');
Parambyname('codemp').AsInteger:= iEmp;
Open;
RDprint.ImpC(1, 28, trim(FieldByName('RAZAO_EMP').AsString), []);
RDprint.ImpC(2, 28, trim(FieldByName('end_emp').AsString) + ', ' + trim(FieldByName('bai_emp').AsString), []);
RDprint.ImpC(3, 28, trim(FieldByName('cid_emp').AsString) + '-' + trim(FieldByName('est_emp').AsString) + ' CEP:' + trim(FieldByName('cep_emp').AsString), []);
RDprint.Imp(4, 1, 'CNPJ: ' + fieldbyname('cnpj_emp').AsString);
RDprint.Imp(5, 1, 'IE: ' + fieldbyname('insc_emp').AsString);
end;
dm.IBTransaction.Commit;
dm.QConsulta.Close;

RDprint.Imp(6, 1, '-----------------------------------------------------');
RDprint.Imp(7, 1, QConsVendasDATA_VEN.AsString + ' ' +
QConsVendasHORA.AsString + ' CCF:' +
FormataStringD(QConsVendasR04_CCF.AsString, '6', '0') +
' COO:' + FormataStringD(QConsVendasCUPOM_FISCAL_VEN.AsString, '6', '0') +
' ECF:' + FormataStringD(QConsVendasCOD_CAI.AsString, '3', '0'));
RDprint.Imp(8, 1, ' ');
RDprint.ImpC(9, 28, '2ª VIA - CUPOM FISCAL', []);
RDprint.Imp(10, 1, '-----------------------------------------------------');

{==========================================================================}
{================================= ITENS DA VENDA =========================}
{==========================================================================}
iLinha:= 11;
RDprint.imp(iLinha, 1, 'Item Codigo Desc. Quant. Unit. Total');
RDprint.imp(iLinha, 1, '-----------------------------------------------------');
inc(iLinha);
cAuxTotal:= 0;

if dm.IBTransaction.Active then
dm.IBTransaction.Commit;
dm.IBTransaction.StartTransaction;
with QBuscaItens do
begin
close;
Parambyname('codven').AsInteger:= QConsVendasCOD_VEN.AsInteger;
Open;
DisableControls;
First;
while not eof do
begin
RDprint.Imp(iLinha, 1, FormataStringD(QBuscaItensORDEM.AsString, '3', '0'));
RDprint.Imp(iLinha, 6, FormataStringD(QBuscaItensCODIGO_BARRA_PRO.AsString, '14', '0'));
RDprint.Imp(iLinha, 21, copy(trim(QBuscaItensNOME_PRO.AsString), 1, 30));
inc(iLinha);
RDprint.ImpVal(iLinha, 27, '#,##0.00', QBuscaItensQUANT.AsCurrency, []);
RDprint.ImpVal(iLinha, 36, '#,##0.00', QBuscaItensVALOR.AsCurrency, []);
RDprint.ImpVal(iLinha, 46, '#,##0.00', QBuscaItensCALC_TOTAL.AsCurrency, []);