How to substring in delphi

There is almost in every programming language function to substring a string. As well as delphi. To substring a string in delphi use 'copy' function as below :

var s : string;
begin
  s:='Embarcadero';
  s := Copy(s,6,5);
  ShowMessage(s);

It will display message 'cader' as below :