Hi,
um das zu erreichen musst Du das Bitmap auf alle Fälle in ein neues übertragen.
Schritte:
1. kleines Bild laden
BmpSmall.LoadFromFile(...)
2. großes Bild erstellen
Delphi-Quellcode:
BmpLarge:=TBitmap.create;
BmpLarge.PixelFormat:=BmpSmall.PixelFormat;
BmpLarge.Width:=1112;
BmpLarge.Height:=1584;
3. kleines auf großes Bild zeichnen und speichern
Delphi-Quellcode:
BmpLarge.Canvas.StrechDraw(BmpLarge.Canvas.ClipRect,BmpSmall);
BmpLarge.SaveToFile(...);
zugegeben, das Ergebnis wird nicht sonderlich schön, da das Bitmap nicht interpoliert vergrößert wird.
Wenn man das will empfiehlt sich:
http://delphi.icm.edu.pl/ftp/d20free/resample.zip
Ciao
Marco