Memo in Stringlist umwandeln

[xZise]

Wie bekomme aus der Memo eine TStringList?

Delphi-Quellcode:

procedure TFVorschau.BitBtn2Click(Sender: TObject);
begin
  UIni.FIni.SaveIni(MVorschau.{Und was jetzt});
  close;
end;

Delphi-Quellcode:

procedure TFIni.SaveIni(Text : TStringList);
begin
  if SDSave.Execute then
    Text.SaveToFile(SDSave.FileName);
end;

Und TStrings funzt deswegen nicht:

Delphi-Quellcode:

procedure TFIni.SpeichernEinleiten(Sender: TObject);
var
  Text  : TStringList;
  i, j  : Integer;
begin
  Text := TStringList.Create;
  try
    { Text erstellen }
    // Nach Sections sortieren
    for i := 0 to High(SectionNames) do begin
      // Section setzen
      Text.Add(SectionNames[i]);
      for j := 0 to High(SeItVaValues) do
        // Gehört das Item zur Section?
        if SeItVaValues[j][0] = SectionNames[i] then
          // Items & Values werden zusammengestellt
          Text.Add(SeItVaValues[j][1] + '=' + SeItVaValues[j][2]);
    end;


    if ShowVorschau.Checked then
      UVorschau.FVorschau.Show(Text)
    else
      SaveIni(Text);
  finally
    Text.Free;
  end;
end;

Gibts eine Funktion, die das umwandelt?