1:
2:
3:

For (x:= 0 to ImageThumbFrom.width) do
For For (y:= 0 to ImageThumbFrom.height) do
ImageThumbToSave.Canvas.pixels[x,y] := ImageThumbFrom.Canvas.Pixels[x,y]					

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:

var
  X, Y: Double;
  MyRect: TRect;
begin
 ImagePlus2.Canvas.Brush.Color := clBtnFace;
 ImagePlus2.Canvas.FloodFill(0, 0, clBtnFace, fsBorder);

 X := ImagePlus1.Picture.Width;
 Y := ImagePlus1.Picture.Height;

 {Brutal und primitiv, ich weiss!}
 while (X > 69) or (Y > 69) do
 begin
  X := X / 1.0001;
  Y := Y / 1.0001;
 end;

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

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

 ImagePlus2.Picture.SaveToFile('d:\delphi6\projects\1.bmp');  {Später dann in den Temp-Ordner}

 {Hier meine Prozedur zum Laden von Bitmaps}
 LoadBitmapsFromFile('d:\delphi6\projects\1.bmp', ImageList1, 19098);

 {Das Image anpassen, es soll schön in der Mitte sein}
 ImagePlus2.Picture.Bitmap.Width := Trunc(X);
 ImagePlus2.Picture.Bitmap.Height := Trunc(Y);
end;					

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:

var
  X, Y: Double;
  L, T: Integer;
  MyRect: TRect;
begin
 DestImagePlus.Canvas.Brush.Color := clBtnFace;
 DestImagePlus.Canvas.FloodFill(0, 0, clBtnFace, fsBorder);

 X := SourceImagePlus.Picture.Width;
 Y := SourceImagePlus.Picture.Height;

 while (X > 69) or (Y > 69) do
 begin
  X := X / 1.0001;
  Y := Y / 1.0001;
 end;

 L := 69 mod Trunc(X) div 2;
 T := 69 mod Trunc(Y) div 2;

 MyRect := Rect(L, T, Trunc(X)+L, Trunc(Y)+T);

 DestImagePlus.Canvas.CopyMode := cmSrcCopy;
 DestImagePlus.Canvas.StretchDraw(MyRect, SourceImagePlus.Picture.Graphic);

 DestImagePlus.Picture.SaveToFile('d:\delphi6\projects\1.bmp');

 LoadBitmapsFromFile('d:\delphi6\projects\1.bmp', ImageList1,
  FileSizeByname('d:\delphi6\projects\1.bmp'));
end;