Как получить Bitmap из TStyleObject

[VirusZ2D]

Доброго времени суток подскажите как получить картинку из TStyleObject  

var
  Item:TListBoxItem;
  StyleObject: TStyleObject;
begin
  Item  := ListBox1.ItemByIndex(0);
  StyleObject := TStyleObject(Item.FindStyleResource('styleobjectstyle'));
  if (StyleObject <> nil) and (StyleObject is TControl) then
  begin
    Image1.Bitmap:= StyleObject.Source;   // Выводит изображение указанное в SourceLookUp целиком;
    Image1.Bitmap := // Интересует как вывести изображение обрезанное с учетом SourceLink
  end;

[aleksandrguru]

Function TForm1.GetImage(const AImageName: string): TBitmap;
var
  StyleObject: TFmxObject;
  Image: TImage;
begin
  StyleObject := ImageBook.Style.FindStyleResource(AImageName);
  if (StyleObject <> nil) and (StyleObject is TImage) then
  begin
    Image := StyleObject as TImage;
    Result := Image.Bitmap;
  end
  else
    Result := nil;
end;





Bitmap:= GetImage('image'+INTTOSTR(I)+'style');

[VirusZ2D]

Ваш код просто вытаскивает изображение из StyleBook  класса Timage  а мне нужно получить изображение из TStyleObject