How to copy a string in delphi code example

Example: Delphi how copy works

var
  Source, Target : string;

begin
  Source := '12345678';
  Target := copy(Source, 3, 4);
  ShowMessage('Target : '+Target);
end;