procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 Image1.Picture.LoadFromFile('1.bmp');
    Izoom:= Izoom - 5;
  Image1.Width  := Round(Image1.Picture.Width  * Izoom / 100);
  Image1.Height := Round(Image1.Picture.Height * Izoom / 100);
     resize_img(Image1,Image1.Height,Image1.Height);
end;

procedure TForm1.Edit1Change(Sender: TObject);
var
  s: string;
begin
     s:=Edit1.Text;
     with Image1.Canvas do
      begin
          Font.Size:=22;
          Font.Name:='Lucida Console';
          Font.Color:=clBlack;
          Font.Style:= Image1.Canvas.Font.Style + [fsBold];
         SetTextCharacterExtra(Image1.Canvas.Handle,34);
             TextOut(300,337,s);

      end;


end;

  if image1.Proportional then begin
    scale:=max(img.Height/ny, img.Width/nx);
    if scale<1 then scale:=1;
    nx:=trunc(img.Width/scale);
    ny:=trunc(img.Height/scale);
  end;
  t:=TBitmap.Create;
  t.Assign(img.Picture.Graphic);
  t.PixelFormat:=pf24bit;
  h:=t.Canvas.Handle;
  SetStretchBltMode(h, HALFTONE);
  StretchBlt(h, 0,0,nx,ny, h, 0,0,t.Width,t.Height, SRCCOPY);
  t.Width:=nx;
  t.Height:=ny;
  img.Picture.Assign(t);
  t.Free;