[Kafu]

Sí, perdona.
El error da al hacer el copyrect y a veces si la imagen es muy grande simplemente al asignar el width a image1.

  
        TRect MyOther;
        Image1->Height = ImagenDiagrama->Height;
        Image1->Width = GridDatos->Width + ImagenDiagrama->Width;
        MyOther = Classes::Rect(GridDatos->Width,0,ImagenDiagrama->Width + GridDatos->Width, GridDatos->Height);
        Image1->Canvas->CopyRect(MyOther,ImagenDiagrama->Canvas ,ImagenDiagrama->Canvas->ClipRect);
        MyOther = Classes::Rect(0,0,GridDatos->Width, GridDatos->Height);
        Bitmap->Canvas->CopyRect(MyOther,GridDatos->Canvas ,GridDatos->Canvas->ClipRect);
        Image1->Picture->Bitmap->SaveToFile(AnsiString("C:\\kafu.bmp"));