var index : Integer;
    bitmap: TBitmap;
begin
  index := SystemImageList.GetIndexFromExtension('doc');
  bitmap:= TBitmap.Create;
  SystemImageList.GetBitmap(index, bitmap);
end;