How to trim last 3 characters in Delphi?

Question

Delphi

Tell me how to trim the last 3 characters in Delphi
Here is a piece of code:
BatchingEdit.Text:=p^.gr.Batching;
p^.gr.Batching here is my text that needs to be trimmed

Answer 1

BatchingEdit.Text := copy(p^.gr.Batching, 1, length(p^.gr.Batching)-3);