Tenta Assim:
with seg.Add do
begin
if ibquery1.FieldByName('SEG_RESPONSAVEL').AsInteger = 1 then
respSeg := rsEmitente
else
respSeg := rsTomadorServico;
CNPJCPF := trim(ibquery1.FieldByName('SEG_CNPJCPF').AsString);
xSeg := copy(trim(ibquery1.FieldByName('SEG_SEGURADORA').AsString), 1, 30);
CNPJ := trim(ibquery1.FieldByName('SEG_CNPJSEGURADORA').AsString);
nApol := copy(trim(ibquery1.FieldByName('SEG_NUMAPOLICE').AsString), 1, 20);
with aver.Add do
begin
nAver := ibquery1.FieldByName('SEG_NUMAVERBACAO').AsString;
end;
end;
