O número 8,9547, se Arredondado para 3 casas decimais, seria 8,955. Se truncarmos o mesmo número em 3 casas decimais, o resultado será 8,954.

function TruncVal(Value: Double; Casas: Integer): Double;
var
  sPot: String;
  iPot: Integer;
  x: Integer;
begin
  sPot := '1';
  for x := 1 to Casas do
    sPot := sPot + '0';
  iPot := StrToInt(sPot);
  Result := StrToInt(IntToStr(Trunc(Value * iPot))) / iPot;
end;

Para usar a função, adicione duas Edits e um Button. Informe o número fracionado na primeira Edit, e no onClick do button faça:

var
  valor, resultado: real;
begin
  valor := StrToFloat(Edit1.Text);
  resultado := TruncVal(valor, 3);
  Edit2.Text := FloatToStr(resultado);
end;

Abraços!