[pirsddd]

Разница в скорости кода:

Код:

var
  s: string;

procedure TForm1.Button1Click(Sender: TObject);
var
  t, i: Integer;
begin
  s := 'fgh';

  t := GetTickCount();
  for i := 0 to 10000000-1 do
    SSS1(s);
  ShowMessage(IntToStr(GetTickCount() - t)); // 1406 миллисекунд

  t := GetTickCount();
  for i := 0 to 10000000-1 do
    SSS2(s);
  ShowMessage(IntToStr(GetTickCount() - t)); // 47 миллисекунд
end;