procedure TForm1.Button1Click(Sender: TObject);
var
  x: Integer;
  y: Integer;
  z: Extended;

  XdivYmultZ: Extended;
  res: integer;
begin
  x := 15;
  y := 55;
  z := 55;

  XdivYmultZ := y * ( x / z );  // ставим на этой строке breakpoint, "изменяем" z снова на 55
  res := Trunc( XdivYmultZ );
end;

var
  A, B, C: Extended;
begin
  A := Okrugl(1.111111111, 2);
  B := Okrugl(1.111111111, 1);
  C := Okrugl(100* (A - B) - 1, 4);
  Label1.Caption:=FloatToStr(C);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  A, B, C: Extended;
begin
  A := Okrugl(1.111111111, 2);
  B := Okrugl(1.111111111, 1);
  C := 100* (A - B) - 1;
  Label1.Caption:=FloatToStr(C)
end;

 Антон Григорьев

function Okrugl(aFloat: Extended; Dig: Integer): Extended;
var sFloat: string;
    i, p, x: Integer;
    MinusSign: boolean;
begin
  if Abs(aFloat) < 0.000001 then begin
    Result := 0;
    Exit;
  end;
  MinusSign := aFloat < 0;
  aFloat := Abs(aFloat);

  sFloat := FloatToStrF(aFloat, ffFixed, 18, 18);
  Dig := Abs(Dig);
  for i := 1 to Length(sFloat) do
    if not (sFloat[i] in ['0'..'9']) then sFloat[i] := DecimalSeparator;

  p := Pos(DecimalSeparator, sFloat);
  if p = 0 then begin
    Result := aFloat;
    if MinusSign then
      Result := -Result;
    Exit;
  end;
  {если не найден разделитель то уже вышли}

  x := p + Dig;
  if x >= Length(sFloat) then begin
    Result := aFloat;
    if MinusSign then
      Result := -Result;
    Exit;
  end;
  {если длина вход. числа меньше или равно длина искомого то уже вышли}

  sFloat := Copy(sFloat, 1, p-1) + Copy(sFloat, p+1, Length(sFloat) - p);
  {убрали разделитель}

  x := x-1;
  if sFloat[x+1] > '4' then
    sFloat[x] := Succ(sFloat[x]);

  {while (sFloat[x] > '9')and(x > 1) do begin}
  while (sFloat[x] > '9')and(x > 0) do begin
    sFloat[x] := '0';
    x := x - 1;
    if x > 0 then
      sFloat[x] := Succ(sFloat[x]);
  end;
  if (x = 1)and(sFloat[1] > '9') then begin
    sFloat[1] := '0';
    sFloat := '1' + sFloat;
    Inc(p);
  end;
  {откатили девятки}

  sFloat := Copy(sFloat, 1, p-1) + DecimalSeparator + Copy(sFloat, p, Length(sFloat) - p+1);
  {вставили разделитель на место}

  if x = 0 then
    sFloat := '1' + Copy(sFloat, 1, p+Dig)
  else
    sFloat := Copy(sFloat, 1, p+Dig);
  {отрезали лишний хвост}

  Result := StrToFloat(sFloat);

  if MinusSign then
    Result := -Result;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  R2 : Single;
  i : integer;
begin
  R2 := 0; // к 0 прибавляем 1000000 раз 1Е-6
  for i := 1 to 1000000 do
    R2 := R2 + 0.000001;
  R2 := R2 + 1000000.0; // к рез-ту прибавляем 1000000
  if R2 = 1000001.0 then
    Label1.Caption := 'равно'
  else
    Label1.Caption := 'не равно';
  Label2.Caption := FloatToStr(R2);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  R2 : Single;
  i : integer;
begin
  R2 := 1000000.0; к 1000000 прибавляем 1000000 раз 1Е-6
  for i := 1 to 1000000 do
    R2 := R2 + 0.000001;
  if R2 = 1000001.0 then
    Label1.Caption := 'равно'
  else
    Label1.Caption := 'не равно';
  Label2.Caption := FloatToStr(R2);
end;