1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

var
  MyRect, MyOther: TRect;
  X, Y: Integer;
  aColor: TColor;
begin
 {Klappt nicht wie gewünscht!}
 for X := 0 to 69 do
  for Y := 0 to 69 do
 begin
  aColor := ImagePlus1.Picture.Bitmap.Canvas.Pixels[X, Y];
  ImagePlus2.Canvas.Pixels[X, Y] := aColor;
 end;

 exit;

 {-- Oder: --}

 {Klappt ebenfalls nicht wie gewünscht!}
 MyRect := Rect(0, 0, 69, 69);

 ImagePlus2.Canvas.CopyMode := cmSrcCopy;
 ImagePlus2.Canvas.StretchDraw(MyRect, ImagePlus2.Picture.Graphic);
end;					

1:
2:
3:

 MyRect := Rect(0, 0, ImagePlus1.Picture.Width, ImagePlus1.Picture.Height);
 MyOther := Rect(0, 0, 69, 69);
 ImagePlus2.Canvas.CopyRect(MyOther,ImagePlus1.Picture.Bitmap.Canvas,MyRect);					

1:
2:

 ImagePlus2.Picture.Bitmap := ImagePlus1.Picture.Bitmap;
 ImagePlus2.Picture.Bitmap.Canvas.FillRect(Rect(0,0,69,69));					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.ResizeImage(newWidth,newHeight: Integer);
begin
  SetStretchBltMode(ImagePlus2.Canvas.Handle, Halftone);
  StretchBlt(ImagePlus2.Canvas.Handle, 0,0,newwidth,newheight,
   ImagePlus1.Canvas.Handle,0,0,
    ImagePlus1.Width,ImagePlus1.Height,SRCCOPY);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  Y: Integer;
  MyRect: TRect;
begin
 Y := 69 * ImagePlus1.Picture.Height div ImagePlus1.Picture.Width;

 MyRect := Rect(0, 0, ImagePlus1.Picture.Width, Y);

 ImagePlus2.Canvas.CopyMode := cmSrcCopy;
 ImagePlus2.Canvas.StretchDraw(MyRect, ImagePlus1.Picture.Graphic);
end;					

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

var
  X, Y: Integer;
  MyRect: TRect;
begin
 X := 69 * ImagePlus1.Picture.Width div ImagePlus1.Picture.Height;
 Y := 69 * ImagePlus1.Picture.Height div ImagePlus1.Picture.Width;

 MyRect := Rect(0, 0, X, Y);

 ImagePlus2.Canvas.CopyMode := cmSrcCopy;
 ImagePlus2.Canvas.StretchDraw(MyRect, ImagePlus1.Picture.Graphic);
end;					

1:
2:
3:
4:
5:
6:
7:

 X := ImagePlus1.Picture.Width;  //Richtig, oder?
 Y := 69 * ImagePlus1.Picture.Height div ImagePlus1.Picture.Width;

 MyRect := Rect(0, Y div 2, X, Y);

 ImagePlus2.Canvas.CopyMode := cmSrcCopy;
 ImagePlus2.Canvas.StretchDraw(MyRect, ImagePlus1.Picture.Graphic);					

1:
2:
3:
4:
5:
6:
7:

 X := 69 * ImagePlus1.Picture.Width div ImagePlus1.Picture.Height;
 Y := 69 * ImagePlus1.Picture.Height div ImagePlus1.Picture.Width;

 MyRect := Rect(0, 0, X, Y);

 ImagePlus2.Canvas.CopyMode := cmSrcCopy;
 ImagePlus2.Canvas.StretchDraw(MyRect, ImagePlus1.Picture.Graphic);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

//Scale = Faktor zur Vergrößerung/Verkleinerung (100%=1)
//In, Out... Bitmaps
//Out muss initialisiert sein...
procedure Stretchbitmap(const AIn: TBitmap; const AScale: Double; out AOut: TBitmap);
begin
  AOut.Width := Trunc(AIn.Width * AScale);
  AOut.Height := Trunc(AIn.Height * AScale);
  AOut.Canvas.StretchDraw(Rect(0, 0, AOut.Width, AOut.Height), AIn);
end;