delphi - How to delete last char -

How to delete the previous string with the string substring or anything?

For example;

  var query: string; Start query: = 'test = 1 & amp; Line = 5 & amp; nbsp; & amp; End;  

should be output:

  query - & gt; Test1 & amp; Line = 5  

Try it:

  Query: string; Start query: = 'test = 1 & amp; Line = 5 & amp; nbsp; & amp; Delete (query length (query), 1);