Lazarus - uložení aktivního mema do souboru – Delphi – Fórum – Programujte.com

Ahoj,
v programu používám PageControl s TabSheet na kterém je umístěno Memo,
po kliknutí na tlačítko vytvořím nový TabSheet s novým Memo pojmenované
TabSheet1...n a Memo1...n.
Rád bych uložil obsah aktivního memo do souboru.

Kód vypadá takto: 

procedure TfrmHlavni.ToolBtbUlozitClick(Sender: TObject);

var aktivni_memo: TMemo;
    aktivni_zalozka: TComponentName;

begin

  aktivni_zalozka:= PageControl1.ActivePage.Name;          //zjistí aktivní TabSheet
  aktivni_zalozka:= 'Memo' + (copy(aktivni_zalozka,9,5));  //aktivní memo (Memo..)

  aktivni_memo.name:= aktivni_zalozka;                     //přiřadi nazev aktivního memo do proměnné
 
  SaveDialog1.Filename:='soubor.txt';
  If SaveDialog1.Execute Then
     aktivni_memo.Lines.SaveToFile(SaveDialog1.FileName);

end;

Bohužel tento způsob nefunguje. Vypíše to chybu: Projekt vyvolal vyjímku třídy 'External: SIGSEGV'.

Nemáte s tímto nědo zkušenost, jak by se toto dalo ošetřit?

Děkuji