Mit dem auch in XE7 vorhandenen String-Helper geht das auch als Einzeiler:
Delphi-Quellcode:
var
S, T: string;
begin
S := 'heute ist ein schöner tag 123 / das wetter ist toll / gewitter / regen / sonne 435/';
T := S.Substring(Succ(S.IndexOf('/'))).TrimLeft;
Assert(T = 'das wetter ist toll / gewitter / regen / sonne 435/');
end;
Das funktioniert übrigens auch, wenn der Delimiter gar nicht vorkommt. Dann liefert das IndexOf ein -1 zurück, was mit dem Succ auf 0 erhöht wird und Substring somit den Ausgangsstring zurück liefert. (ChatGPT scheint das übersehen zu haben)
Für das TrimLeft gilt das bereits von Thomas gesagte.