Zusammenfügen von Bildern beschleunigen

[Chrissi91]

Hi,

so, nachdem ich nach langer Zeit wieder mal was mit Delphi mache, habe ich auch schon die erste Frage.

Die beiden folgenden Prozeduren fügen 2 Images senkrecht bzw. waagerecht aneinander. (Den Code habe ich hier irgendwo mal im forum aufgegabelt.)

Delphi-Quellcode:

procedure TfrmMain.DrawWaagerecht;
begin
  imgPreview.picture.assign(image1.picture.bitmap);
  imgPreview.Picture.Bitmap.Width := imgPreview.Picture.Bitmap.Width + image1.picture.bitmap.width;
  imgPreview.picture.Bitmap.Canvas.CopyRect(rect(image1.Picture.width,0,image2.picture.Width +
  image1.picture.width,image2.picture.height),image2.picture.bitmap.Canvas, rect(0, 0,
  image2.picture.width, image2.picture.Height));
end;

procedure TfrmMain.DrawSenkrecht;
begin
  imgPreview.Picture.Assign (Image1.Picture);
  with imgPreview.Picture.Graphic do Height := Height + Image2.Height;
  imgPreview.Canvas.Draw (0, Image1.Height, Image2.Picture.Graphic);
end;

Danach wird das Bild nach JPG gebracht und gespeichert.

Wenn ich jetzt das mit Bildern, die größer als 2000 * 2000 px sind, stürzt das Programm fast ab.

Gibt es eine Möglichkeit das zu beschleunigen?

Über Anregungen würde ich mich freuen.

Chrissi91