Ejemplo de query con parámetros en Delphi

Query1.close;
Query1.SQL.Clear;
//confecciono la consulta
query1.SQL.Add('select sum(unidades*precioventa) as suma from venta.db where (empleado = :valor1)');
//Le paso el tipo de perámetro y después su valor
query1.parambyname('valor1').datatype:=ftinteger;
query1.parambyname('valor1').value:=p4_arrayVendedores[p4_i];
//Ejecuto la consulta y trabajo con los resultados
query1.Open;
query1.first;
p4_arraytotales[p4_i]:=query1.FieldValues['suma'];