1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  p, q: PChar;  / p zeigt auf aktuelle, q auf letzte Position im Stream
  s: String;
  Buffer: TMemoryStream;

  p := Buffer.Memory;
  q = p;

  Move(Pointer(s), p^, Length(s));
  inc(p, Length(s));					

1:
2:
3:
4:
5:
6:
7:

  // falls nur noch 10k übrig im Stream => vergrößern
  if q - p < 10192 then
  begin
    Buffer.SetSize(Buffer.Size + 1024 * 512);  // und zwar um 512k
    q := Buffer.Memory;
    inc(q, Buffer.Size)  // und Ende-Zeiger anpassen
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

procedure TForm1.Button1Click(Sender: TObject);
var
  Buffer: TMemoryStream;
  p, q  : PChar;
  i     : Word;
  s     : String;
begin
  // Dummy Strings laden
  Memo1.Lines.LoadFromFile('C:\boot.ini');
  Memo1.Lines.Text := Trim(Memo1.Lines.Text);
  if Memo1.Lines.Count = 0 then Exit;

  Buffer := TMemoryStream.Create;
  try
    with Memo1 do
    begin
      p := Buffer.Memory;
      q := p;
      for i := 0 to Lines.Count - 1 do
      begin
        // falls nur noch 10k übrig im Stream => vergrößern
        if q - p < 10 * 1024 then
        begin
          Buffer.SetSize(Buffer.Size + 1024 * 512);  // und zwar um 512k
          q := Buffer.Memory;
          inc(q, Buffer.Size)
        end;
        // String holen...
        s := Lines[i];

        //...und in den MemoryStream kopieren
        Move(s[1], p^, Length(s));
        // statt vorher
        //Move(Pointer(s), p^, Length(s));
        inc(p, Length(s));

        // Ersetze das Return (#13#10)durch #10
        p^ := #10;
        inc(p);
      end  {of i := 0 to Lines.Count - 1}
    end;  {of with Memo1 do}
    Buffer.SetSize(p - Buffer.Memory);
    p := Buffer.Memory;
    Memo2.Lines.SetText(p)
  finally
  Buffer.Free
  end
end;