Como cortar um TBitmap FMX

Eu recebo um bitmap via evento TCameraComponent.SampleBufferReady. Preciso cortar a imagem recebida para obter uma imagem retangular, por exemplo. Calculo os parâmetros necessários no seguinte método: procedure ...