[Gerson12]

hola
[Caral] bueno prove el ejemplo pero la verdad no entiendo mucho estas lineas(disculpa es que lo unico que se es que aca se guia mediante cordenadas )

Código Delphi [-]
ARect.Left := 0;  ARect.Top := 0; ARect.Right := 48; ARect.Bottom := 48;
  imgDestino.Canvas.CopyRect(ARect, img1.Canvas, img1.ClientRect);

  ARect.Left := 48;  ARect.Top := 0; ARect.Right := 92; ARect.Bottom := 48;
  imgDestino.Canvas.CopyRect(ARect, img2.Canvas, img2.ClientRect);

  ARect.Left := 0;  ARect.Top := 48; ARect.Right := 48; ARect.Bottom := 92;
  imgDestino.Canvas.CopyRect(ARect, img3.Canvas, img3.ClientRect);

  ARect.Left := 48;  ARect.Top := 48; ARect.Right := 92; ARect.Bottom := 92;
  imgDestino.Canvas.CopyRect(ARect, img4.Canvas, img4.ClientRect);

El codigo que eh encontrado en google ah sido esto

Código Delphi [-]
try
    if dlg.Execute then
    begin
      jpg := TJPEGImage.Create;
      try
        jpg.Assign(imgAvatar.Picture.Bitmap);
        jpg.SaveToFile(dlg.FileName);
      finally
        jpg.Free;
      end;

bueno dejo una imagen de lo que quiero hacer por si puede ayudar