Das einfachste ist, du lädst dieses Doppel-Bild zuerst in ein normales TBitmap, welches du im Creater der Form davor noch erzeugst. Und danach brauchst du nur noch mehr mittels der
Api-Funktion "BitBlt" jeweils die erste Hälfte bzw. die zweite Hälfte dieses Bitmap auf das Image zu übertragen.
also für Teil-Bild1 so:
Delphi-Quellcode:
BitBlt(Image1.Canvas.Handle, 0, 0, FBitmap.Width div 2, FBitmap.Height,
FBitmap.Canvas.Handle, 0, 0, SrcCopy);
bzw. so fürs Teil-Bild2:
Delphi-Quellcode:
BitBlt(Image1.Canvas.Handle, 0, 0, FBitmap.Width div 2, FBitmap.Height,
FBitmap.Canvas.Handle, FBitmap.Width div 2, 0, SrcCopy);