Pulling RichText from a RichMemo

[WildMan]

I'm using the following block of code to pull the RichText from a tRichMemo and shove it in a string.  It works in Delphi but on my Mac, under Lazarus, it does a hard crash on the line RE.SaveRichText(Stm).

Anybody see a problem with this code or have a better way to accomplish this?
 
function tForm1.RTFToString(RE: tRichMemo): String;
var Stm: tMemoryStream;
    MyList: tStringList;
begin
  Stm:=tMemoryStream.Create;
  try
    RE.SaveRichText(Stm);
    Stm.Position:=0;
    MyList:=tStringList.create;
    try
      MyList.LoadFromStream(Stm);
      Result:=MyList.Text;
    finally
      MyList.Free;
    end;
  finally
    Stm.Free;
  end;