Как сложить числа из двух столбцов бд?

begin
 qry1.Close; 
 qry1.SQL.Clear;
 qry1.SQL.Add('SELECT [поле1], [поле2], [поле3]+[поле4] AS summa FROM [таблица1] WHERE [поле1]=:p1 AND [поле2]=:p2');
 qry1.Parameters.ParamByName('p1').Value := edt1.text;
qry1.Parameters.ParamByName('p2').Value := edt2.text;
 qry1.Open;
end;

begin
 qry1.Close; 
 qry1.SQL.Clear;
 qry1.SQL.Add('SELECT [поле1], [поле2], [поле3], [поле4] AS summa FROM [таблица1] WHERE [поле1]=:p1 AND [поле2]=:p2');
 qry1.Parameters.ParamByName('p1').Value := edt1.text;
 qry1.Parameters.ParamByName('p2').Value := edt2.text;
 qry1.Open;
 
 while not qry1.eof do begin
    listbox1.items.add(inttostr(qry1.fields[2].asInteger+qry1.fields[3].asInteger)); // поля начинаются с 0, поэтому не 3+4, а 2+3
    qry.next;
 end;
 
end;