procedure Add(var Result: string; P: PChar; Count: Integer);
var
  Len: Integer;
begin
  Len := Length(Result);
  SetLength(Result, Len + Count);
  Move(P^, Result[Len], Count);
end;

字符串合并