var<br> bmp1,bmp2:Tbitmap;<br>begin<br> bmp1:=Tbitmap.Create;<br> bmp2:=Tbitmap.Create;<br> bmp1.LoadFromFile('1.bmp');<br> bmp2.LoadFromFile('2.bmp');<br><br> With Tbitmap.Create do<br> try<br> Width:=bmp1.Width + bmp2.Width;<br> Height:=Max(bmp1.Height,bmp2.Height);<br> Bitblt(Canvas.Handle,0,0,bmp1.Width,Height,bmp1.Canvas.Handle,0,0,SRCCOPY);<br> Bitblt(Canvas.Handle,bmp1.Width,0,bmp1.Width,Height,bmp2.Canvas.Handle,0,0,SRCCOPY);<br> finally<br> Free;<br> end;<br> bmp1.Free;<br> bmp2.Free;