Fórum quot;Access violationquot; em execução de método em compon #298565

Pessoal,
Estou criando um componente simples, derivado do Tcombobox.
A intenção é criar uma funcionalidade que armazena em outra TString o código do ítem.

Só que dá erro quando executo o método ´adicionar´. Creio que é por que o TStrings ´Fchave1´ não é criado.
´Copiei´ um método ´SetItems´ do Delphi, mas mesmo assim não funciona.

Vejam o código:

----------------------------------------------------------------------------------
unit DTCombobox;

interface

Uses
Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

Type
TDCombobox = Class(TCombobox)
Private
FChave1: TStrings;
Protected
procedure SetItems(const Value: TStrings); override;
Public
procedure Adicionar(Chave,Item: String);
procedure LimparCombo;
property Chave1: TStrings read FChave1 write SetItems;
Published
End;

Procedure Register;
implementation

procedure TDCombobox.Adicionar(Chave,Item: String);
Begin
Items.Add(Item);
FChave1.Add(Chave);
End;

procedure TDCombobox.LimparCombo;
Begin
Items.Clear;
FChave1.Clear;
End;

procedure Register;
begin
RegisterComponents(´Standard´, [TDCombobox]);
end;

procedure TDCombobox.SetItems(const Value: TStrings);
begin
if Assigned(FChave1) then
FChave1.Assign(Value)
else
FChave1 := Value;
end;

end.
----------------------------------------------------------------------------

Bico, né?
Mas por que não funciona?
Eu tenho que usar mesmo este método SetItems, Certo?

Obrigado.