[KATODO]

Lo que debes hacer es limpiar el TImage ya que de lo contrario, estaras pintando encima de la imagen anterior.

Para ello debes poner el siguiente código antes de la llamada a GetBitmap.

Image1->Picture->Bitmap = NULL;