Tag - delphi remove text from before a ceratin