Ich versteh zwar immer noch nicht ganz was zu versuchst, aber guck dir das mal an
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
s, d: String;
begin
s := '2012-07-19_13-15-45**1245.txt'; //Dateiname
d := '**'; //Trennzeichenkette (auch wenn * kein gültiges Dateizeichen ist)
s := ChangeFileExt(s, '');
Delete(s, 1, Pos(d, s) - 1 + Length(d));
ShowMessage(s);
end;