Parâmetros como constantes

Params.Const.pas

function CompareStr(const S1, S2: string): Integer;

procedure Exemplo(var Value: Double);
begin
  Value := 10;
end;

function Somar(const valor1, valor2: Double): Double;
begin
  Result := valor1 + valor2;
  valor1 := 20; // erro, porque o parâmetro é constante e não pode ser alterado.
  Exemplo(valor2); // erro porque uma constante não pode ser passada como parâmetro para uma procedure que espera um var.
end;