Memo.Text Schleife

[Alterauge]

Hallo,
habe noch eine Frage zu:

Delphi-Quellcode:

 
d := '**';

Möchte gerne die letzten 10 Zeichen mit in den Dateinamen nehmen!
Und nich was nach ** kommt!

Hat einer eine Idee?


Hier der ganze Quelltext!

Delphi-Quellcode:

procedure TForm1.Timer3Timer(Sender: TObject);
 var
  s, d: String;
begin
    Memo3.Lines:=Memo1.Lines;
    Timer4.Enabled:=false;
   Progressbar1.Position := Progressbar1.Position -1;
 if Progressbar1.Position = 0 then
    begin
  s := Memo1.Lines.Text;
  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);
  if Pos(d, s) < 1 then begin
     Memo1.Lines.SaveToFile(FormatDateTime('yyyy-mm-dd_hh-nn-ss__',now)+('EOT')+ '.txt');
    Memo1.Clear;
    FileListBox1.Update;
    Button4.Enabled:=false;
    Timer3.Enabled:=false;
     Timer1.Enabled:=true;
     sndPlaySound( nil , 0);
    exit;
    end;
  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');
     Filelistbox1.Update;
    Memo1.Clear;
    Button4.Enabled:=false;
    Timer3.Enabled:=false;
     Timer1.Enabled:=true;
     sndPlaySound( nil , 0);
   end;
 end;