1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

image1.Visible := false;
  image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
  image1.Picture.Bitmap.Assign(image1.Picture);
  o_y := image1.Picture.Height;
  o_x := image1.Picture.Width;
  n_x := 150;
  n_y := round(o_y * (n_x / o_x));
  arect.Left := 0;
  arect.top := 0;
  arect.Right := n_x;
  arect.Bottom := n_y;
  edit3.Text := inttostr(n_x);
  edit4.Text := inttostr(n_y);
  image1.Canvas.StretchDraw(arect,image1.Picture.Bitmap);
  image1.Visible := true;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

procedure Tdaten.Button3Click(Sender: TObject);
var bmp:TBitmap;
    jpeg:TJpegImage;
    o_x, o_y, n_x, n_y : integer;
begin
 OpenPictureDialog1.Execute;
 if OpenPictureDialog1.FileName <> '' then
 begin
   Jpeg:=TJpegImage.Create;
   try
   jpeg.LoadFromFile(OpenPictureDialog1.FileName);
    bmp:=TBitmap.Create;
      try
        If jpeg.width>jpeg.Height then
         begin
          bmp.width:=width;
          bmp.height:=height;
         end else
         begin
          bmp.width:=height;
          bmp.Height:=width;
         end;
        n_x := 150;
        n_y := round(bmp.height * (n_x / bmp.width));
        bmp.Width := n_x;
        bmp.Height := n_y;
        bmp.canvas.StretchDraw(Rect(0,0,n_x,n_y),jpeg);
        jpeg.assign(bmp);
      finally
       bmp.free;
      end;
   finally
  image1.Picture.Bitmap := bmp;

  image1.Visible := true;
 end;
 end;
end;