How reduce amount of stored bitmaps

Hi,

 I've a form with dozens of one same component... made by myself in the early D1 period. Now it's time to alter it...

Ok, what it does : It's a sort of range visualizer. You give two values one limit for above, one for below.

If a given data-value (db or not db) is in the selected range, then a certain bitmap is shown, if not, another bitmap is shown. Now, every single component stored these bitmaps himself! Not so good, but heck it worked then.

Now, I want to do the following :

 - put an image container on the form (like image list, or PicClip of RxLib) I prefer to use PicClip, because ImageList seems to have some resource leaks.
 - put a component on the form and let this one point to a certain Image container (selectable in design-time)

 --> this way I avoid storing multible same bitmaps.

 --> But how can you do this? How can I let one component refer to another one, so that I can share one component with several others..., without storing this shared component in every component which uses it!

Is this the only way, but then I still create a TPicClip for every component and that's just what I don't want!! :

 unit ShowRange;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  PicClip;

type
  TShowRange = class(TCustomControl)
  private
    { Private declarations }
    fPicClip : TPicCLip;
    procedure SetPicClip(vPicClip : TPicClip);
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
   property PicClip: TPicClip read fPicClip write SetPicClip;
  end;

procedure Register;

implementation

procedure TShowRange.SetPicClip(vPicClip: TPicClip);
begin
 if vPicClip <> fPicClip then begin
  fPicClip.Assign(vPicClip);
 end;
end;

procedure Register;
begin
  RegisterComponents('MyComponents', [TShowRange]);
end;

end.

 
Example please!

Regards, Zif.