Имхо только написав самому функцию которая будет вырезать нужный прямоугольник. Примерно так:
Код:

Function GetPart(Source: TImage; Part: Integer): TImage;
Part тут определяет какой прямоугольник брать, то есть его номер. А уж на основе ширины Source можно вычислить откуда и сколько из Source пикселей копировать в выходной TImage.