registrierung

[mr.unbekannt]

ich möchte iene komponente schrieebn, die auch werte in die registrierung shchriebt, nun habe ich das problem, das beim ausführen dieser komponente ein access error entshte, weiß abe rnet wo der fehelr ist! hier der quelltext:

Delphi-Quellcode:

unit rial_komponente;

interface

uses
  SysUtils, Classes;

type
  trial_komponente = class(TComponent)
  private
       { Private declarations }
  protected
    { Protected declarations }
    ftrial:boolean;
    fbenutzung:boolean;
    ftrialtime:integer;
  public
    { Public declarations }
  published
  property Trialtime: integer read ftrialtime write ftrialtime;
    property Trial: boolean read ftrial write ftrial;
    property Benutzung: boolean read fbenutzung write fbenutzung;
    procedure activate; virtual;
    { Published declarations }
  end;

procedure Register;

implementation
uses dateutils,Windows, Messages, registry;


procedure Register;
begin
  RegisterComponents('Standard', [trial_komponente]);
end;

procedure trial_komponente.activate;
var registry : tregistry;
begin
if trial=true then begin
registry.RootKey:=HKEY_CURRENT_USER;
if registry.KeyExists('testprog')= false then registry.CreateKey('testprog');
registry.OpenKey('testprog',false);
registry.WriteString('testprog','test');
registry.CloseKey;
registry.Free;
//end trial
end;
end;


end.

danke für alle antworten, ich dnek mal ne möglichkeit könnten bei den uses ein.