Hola hcashmx, puedes hacerlo con una consulta como te dice Caral, yo aumentaría un group by por tipo, el resultado serán dos registros con su suma correspondiente.
Código Delphi
[-]
Query1.Sql.text:= 'Select tipo, sum(precio) as suma From tabla Group by tipo';
Query1.Open;
No te olvides que si, lo que esta en tu dbgrid es una parte de tu tabla, debes añadir mas condiciones en tu consulta.
Saluditos