[pepe2000]

Ya estoy 3 horas intentando solucionar este problema que deberia ser simple, pero a mi no me funciona.
Al colocar siguiente componente en un formulario e intentar cargar una imagen en el sale un error de "access violation".
Les agradezco mucho su ayuda.

unit prueba;

interface

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


type
  Tprueba = class(Tcomponent)
  private
    { Private declarations }
    Fglyph: Tbitmap;
    procedure SetBitmap(const Value: TBitmap);
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor create(AOwner: Tcomponent); override;
  published
    { Published declarations }
    property Glyph: TBitmap       read FGlyph write SetBitmap;
  end;

procedure Register;

implementation

uses pmemose1;

constructor Tprueba.create(AOwner: Tcomponent);
begin
   inherited create(AOwner);
end;

procedure Tprueba.SetBitmap(const Value: TBitmap);
begin
   FGlyph.Assign(Value);
end;

procedure Register;
begin
  RegisterComponents('Samples', [Tprueba]);
end;

end.