Масштабирование в TImage

procedure TForm1.ToolButton8Click(Sender: TObject);
begin
  ToolButton7.Enabled:=true;
  if (ToolButton7.Tag=0) and (ToolButton8.Tag=0) then
    begin
      //Если нажатие в первый раз, то сохраняем начальные размеры
      normal_w:=background.Width;
      normal_h:=background.Height;
    end;
 
    if ToolButton7.Tag>0 then
    begin
      //Увеличиваем кол-во нажатий
      ToolButton7.Tag:=ToolButton7.Tag-1;
 
      //Считаем кооэфициен увеличения
      k_zoom:=1+ToolButton7.Tag/10;
 
      background.Width:=round(normal_w*k_zoom);
      background.Height:=round(normal_h*k_zoom);
 
      grid.Width:=round(normal_w*k_zoom);
      grid.Height:=round(normal_h*k_zoom);
 
      StatusBar1.Panels[2].Text:='Масштаб: '+IntToStr(round(k_zoom*100));
    end
  else
    begin
      if ToolButton8.tag=0 then
        begin
          //Увеличиваем кол-во нажатий
          ToolButton8.Tag:=ToolButton8.Tag+1;
 
          //Считаем кооэфициен увеличения
          k_zoom:=1-ToolButton8.Tag/10;
 
          //увеличиваем размеры холстов
          background.Width:=round(normal_w*k_zoom); //шаг увеличения равен 10%
          background.Height:=round(normal_h*k_zoom);
 
          grid.Width:=round(normal_w*k_zoom);
          grid.Height:=round(normal_h*k_zoom);
 
          StatusBar1.Panels[2].Text:='Масштаб: '+IntToStr(round(k_zoom*100));
        end
      else
        begin
          //Увеличиваем кол-во нажатий
          ToolButton8.Tag:=ToolButton8.Tag+1;
 
          //Считаем кооэфициен увеличения
          k_zoom:=1-ToolButton8.Tag/10;
 
          background.Width:=round(normal_w*k_zoom);
          background.Height:=round(normal_h*k_zoom);
 
          grid.Width:=round(normal_w*k_zoom);
          grid.Height:=round(normal_h*k_zoom);
 
          StatusBar1.Panels[2].Text:='Масштаб: '+IntToStr(round(k_zoom*100));
 
          if k_zoom<0.2 then ToolButton8.Enabled:=False;
        end;
    end;
end;

procedure TForm1.FormActivate(Sender: TObject);
var
  i: integer;
  w,h, real_w, real_h: integer; //ширина и высота
  real_step_grid: byte;
 
begin
  //Задаем начальный zoom
  k_zoom:=1;
 
  //Если ini-файл существует, то читаем значения, иначе выставляем значения по умолчанию (600мм х 400мм)
  if FileExists(ExtractFileDir(Application.ExeName)+'\setting.ini') then
    begin
      //Открываем файл
      ini:=TIniFile.Create(ExtractFileDir(Application.ExeName)+'\setting.ini');
 
      //Читаем ширину и высоту из файла
      w:=StrToInt(ini.ReadString('canvas', 'w', '600'))+2;
      h:=StrToInt(ini.ReadString('canvas', 'h', '400'))+2;
 
      //Пересчитываем в пиксели
      real_w:=round(w*PixelsPerInch/25.4);
      real_h:=round(h*PixelsPerInch/25.4);
 
      step_grid:=StrToInt(ini.ReadString('grid', 's', '5')); //шаг сетки
    end;
 
    //Устанавливаем значение размеров холстов
      //Для background
      background.Width:=real_w;
      background.Height:=real_h;
      background.Picture.Bitmap.Width:=real_w;
      background.Picture.Bitmap.Height:=real_h;
 
      //Для сетки
      grid.Width:=real_w;
      grid.Height:=real_h;
      grid.Picture.Bitmap.Width:=real_w;
      grid.Picture.Bitmap.Height:=real_h;
 
      //Пересчитываем шаг сетки из мм в пиксели с учетом dpi монитора
      real_step_grid:=round(step_grid*Form1.PixelsPerInch/25.4);
 
      //Устанавливаем параметры фонового слоя (background)
      background.Canvas.Brush.Color:=clWhite; //Цвет - белый
      background.Canvas.FillRect(background.Canvas.ClipRect); //Заливаем холст
 
      //Устанавливаем параметры сетки
      grid.Canvas.Brush.Color:=clCream; //Цвет заливки. Цвет clCream считаем прозрачным
      grid.Canvas.FillRect(grid.Canvas.ClipRect); //Заливаем холст
 
      //Рисуем сетку
      grid.Canvas.Pen.Width:=1;
      grid.Canvas.Pen.Color:=clTeal;
      for i := 0 to ((grid.Width-2) div real_step_grid)+1 do
        begin
          grid.Canvas.MoveTo(i*real_step_grid, 0);
          grid.Canvas.LineTo(i*real_step_grid, grid.Height-2);
        end;
 
      for i := 0 to ((grid.Height-2) div real_step_grid)+1 do
        begin
          grid.Canvas.MoveTo(0, i*real_step_grid);
          grid.Canvas.LineTo(grid.Width-2, i*real_step_grid);
        end;
 
      //Рисуем границу рабочего поля
      background.Canvas.Pen.Color:=clMaroon;
      background.Canvas.Pen.Width:=2;
      background.Canvas.Pen.Style:=psSolid;
      background.Canvas.Rectangle(4,4,background.Width-4, background.Height-4);
 
end;