uses System.SysUtils;

var
  S1, S2, S3, SGo: string;
begin
  S1 := 'three';
  S2 := 'two';
  S3 := S1 + ', ' + S2;
  S3 := S3 + ', one';
  SGo := Concat(S3, ', ', 'go!');
  //SGo is 'three, two, one, go!'

  WriteLn('sGo is ''', SGo, '''');
end.