[Erledigt] RichEdit zur Laufzeit durch SynEdit ersetzen

[-=IOI=-]

Ich hab mal wieder ein Problem.
ich hab ein TabSheet, auf dem ein RichEdit ist. Über ein Popup Menu möchte ich nun zur Laufzeit, dieses RichEdit durch ein Synedit ersetzen und auch wieder umgekehrt.
Hier mal mein Quellcode für die beiden Fälle:

Delphi-Quellcode:

procedure TForm1.Quellcodemodus1Click(Sender: TObject);
var
  NewSyn: TSynEdit;
begin
  memo := FindMemo(ActiveControl); //aktives Tabsheet finden
  Quellcodemodus1.Visible := false;
  Editormodus1.Visible := true;
  NewSyn := TSynEdit.Create(memo);
  NewSyn.Options := NewSyn.Options + [eoHideShowScrollbars];
  NewSyn.OnMouseDown := TRichEdit(memo.Controls[0]).OnMouseDown;
  NewSyn.OnChange := TRichEdit(memo.Controls[0]).OnSelectionChange;
  NewSyn.OnKeyDown := TRichEdit(memo.Controls[0]).OnKeyDown;
  TRichEdit(memo.Controls[0]).Destroy;
  NewSyn.Parent := memo;
  NewSyn.Align := alClient;
  NewSyn.Show;
  NewSyn.SetFocus;
  NewSyn.ParentFont := true;
  NewSyn.Gutter.DigitCount := 5;
  NewSyn.Gutter.LeftOffset := 1;
  NewSyn.Gutter.RightOffset := 1;
  NewSyn.Gutter.ShowLineNumbers := true;
  NewSyn.Gutter.Width := 15;
  NewSyn.WordWrap := true;
  NewSyn.ScrollBars := ssVertical;
  //Text übernehmen
end;

Delphi-Quellcode:

procedure TForm1.Editormodus1Click(Sender: TObject);
var
  NewMemo: TRichEdit;
begin
  memo := FindMemo(ActiveControl); //aktives TabSheet finden
  Quellcodemodus1.Visible := true;
  Editormodus1.Visible := false;
  NewMemo := TRichEdit.Create(memo);
  NewMemo.OnMouseDown := TSynEdit(memo.Controls[0]).OnMouseDown;
  NewMemo.OnSelectionChange := TSynEdit(memo.Controls[0]).OnChange;
  NewMemo.OnKeyDown := TSynEdit(memo.Controls[0]).OnKeyDown;
  TSynEdit(memo.Controls[0]).Destroy;
  NewMemo.Parent := memo;
  NewMemo.Align := alClient;
  NewMemo.Show;
  NewMemo.SetFocus;
  NewMemo.ScrollBars := ssVertical;
  //Text übernehmen
end;

Das erste Wechseln von RichEdit zu SynEdit funktioniert tadellos.
Wenn ich nun aber wieder zurückwechsle, bekomme ich eine Access Violation.
Was mache ich da falsch?