title: Delete last 5 characters
body: <p>How to delete the last 5 characters from the string?</p>
  
  <pre><code>procedure TForm1.Button15Click(Sender: TObject);
  var
  str:string;
  begin
  str:='012345678911234567892223456789';
  showmessage(str);
  end;
  </code></pre>
  
  <p>Thanks in advance</p>