Memo.Text Schleife

[Alterauge]

Hallo,

ich möchte hoffen, dass der Titel so in Ordnung ist?

Also zum Thema!
Wie ihr im Quelltext lesen könnt, wird ein Teil aus dem Memofeld als
Dateiname zum speichern benutzt. Und zwar der Inhalt der nach ** kommt.
Dieses geht auch soweit ganz gut!

Jetzt zum Problem: Sind keine ** vorhanden, wird der ganze Inhalt vom Memofeld als
Dateiname benutzt. Das ist schlecht!
Würde gerne, wenn die ** fehlen einen Fixtext benutzen!

Delphi-Quellcode:

procedure TForm1.Timer3Timer(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('yyyy-mm-dd_hh-nn-ss__',now)+(s) + '.txt');
      end;
   end;
end;