SaveToFile mit Anhang aus dem Memofeld

[Alterauge]

Hallo, eine weitere Frage

Der Inhalt von Memo1, wird als *.txt Format so abgespeichert. =: 2012-07-19_13-15-45.txt
Hier der Quelltext dazu:

Memo1.Lines.SaveToFile(FormatDateTime('yyyy-mm-dd_hh-nn-ss', now) + '.txt'); Soweit auch alles Richtig und in Ordnung!

Jetzt zur Frage:
Würde gerne eine kleine Information aus dem Memofeld,
mit an den Dateinamen hängen.

Hier ein Beispiel:
So würde der Inhalt im Memofeld aussehen:

testeingabe1*testeingabe2*testeingabe3**1245

Jetzt würde ich gerne immer die Zahl nach dem Sonderzeichen ** mit übernehmen!
Das der Dateiname so ausieht: 2012-07-19_13-15-45**1245.txt