SaveToFile mit Anhang aus dem Memofeld

[Alterauge]

So habe es gleich fertig!

Nur noch ein kleiner Fehler!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var
  s, d: String;
begin
  s := Memo1.Lines.Text; 
  d := '**';
  Delete(s, 1, Pos(d, s) - 1 + Length(d));
  while Pos(#10, s) > 0 do Delete(s, Pos(#10, s), 1); 
  while Pos(#13, s) > 0 do Delete(s, Pos(#13, s), 1); 
  s := Trim(s);
   Memo1.Lines.SaveToFile(FormatDateTime('yyyymmdd_hh-nn-ss',s ,now) + '.txt'); // hier habe ich das s eingefügt! Was ist hier falsch? Verstehe ich nicht ? 
 Memo1.Clear;