TImage в Delphi 6

[LedWorm]

Помогите пожалуйста разобраться со следующей проблемой.

У меня есть картинка 336*48 ( т.е 7 квадратиков по 48*48) как сделать так, чтобы в TImage ( Height = 48 , Width= 48)выводился например второй или третий квадратик, а не левая часть картинки.

[Prisoner]

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

Function GetPart(Source: TImage; Part: Integer): TImage;

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