Speicher-Fehler beim create

[Ykcim]

Hallo Zusammen,

ich versuche mich ganz vorsichtige an Scriptern. Ich habe jetzt folgende Unit geschrieben und frage mich, warum es kracht...

Delphi-Quellcode:

Unit TScripterUnit;
interface

uses  Windows, Messages, SysUtils,  Variants, Printers, Classes, Graphics,
      Controls, Forms, Dialogs, StdCtrls, ScrMemo, ScrmPS, atScript, atPascal,
      Vcl.ScripterInit;

Type
   TEvent = procedure(Sender: TObject) of object;
   TMyScripter=class
      strict protected
         FScript_Memo_Set: TatCustomScripter;
      private

      public
         constructor create;
         procedure Script_Memo_Ausbuchen_Set (Memo: TMemo; Pfad_SetFile: string);
   end;

var   Script: TMyScripter;

implementation

constructor TMyScripter.create;
begin
   FScript_Memo_Set:=TatCustomScripter.Create(nil);  //Hier kracht es
end;

procedure TMyScripter.Script_Memo_Ausbuchen_Set(Memo: TMemo; Pfad_SetFile: string);
var   Code_Memo: TMemo;
begin
   Code_Memo:=TMemo.Create(nil);
   Code_Memo.Lines.LoadFromFile(Pfad_SetFile);
   FScript_Memo_Set.AddComponent(Memo);
   FScript_Memo_Set.SourceCode := Code_Memo.Lines;
   FScript_Memo_Set.Execute;
end;

initialization
  Script := TMyScripter.Create;

finalization
   if Script <> nil then begin
      Script.Free;
   end;
end.

Fehlermeldung: Erste Gelegenheit für Exception bei $004076E3. Exception-Klasse $C0000005 mit Meldung 'access violation at 0x004076e3: read of address 0xfffffff4'. Prozess iVisitor.exe (6560)
Hat jemand eine Idee, was ich gerade falsch mache?

Vielen Dank
Patrick