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

var
  Stream: TMemoryStream;
  p, q: PChar;  // oder PByte?
begin
  // Zeiger p auf Anfang
  p := Stream.Memory;

  // [...] Suchfunktion à la if p^ = '/' then...
  // q zeigt auf Ende des interessanten Bereichs,
  // als Bsp.:
  q := p + 100;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Button1Click(Sender: TObject);
var
  ms: TMemoryStream;
  p: PChar;
begin
  ms := TMemoryStream.Create;
  try
    ms.LoadFromFile('d:\Dokumente\Träume vom 2004-02-25.txt');
    p := ms.Memory;
    while p^ <> #0 do
    begin
      ShowMessage(p^);
      Inc(p);
    end;
  finally
    FreeAndNil(ms);
  end;
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:
49:
50:

procedure TForm1.Button1Click(Sender: TObject);
var
  ms: TMemoryStream;
  p, q, r: PChar;
  i: Integer;
  s: string;
begin
  i := 0;
  ms := TMemoryStream.Create;
  try
    ms.LoadFromFile('d:\Dokumente\Träume vom 2004-02-25.txt');
    p := ms.Memory;
    q := p;
    r := p;
    while p^ <> #0 do
    begin
      if p^ = 'd' then
      begin
        // drei Zeichen weiter gehen mit dem einen Zeiger
        Inc(q, 3);
        // einen zurück mit dem anderen Zeiger
        Dec(r, 1);
        // wenn Leerzeichen dahinter und davor
        if (q^ = #32) and (r^ = #32) then
        begin
          // Zeichenfolge in String kopieren
          SetString(s, p, q - r - 1);
          // auf bestimmten Artikel prüfen
          if (s = 'der') or (s = 'das') or (s = 'die') then
          begin
            ListBox1.Items.Add(s);
            // Zähler erhöhen
            Inc(i);
          end;
        end;
        // Hilfs-Zeiger wieder mit Zeiger p synchronisieren
        Dec(q, 3);
        Inc(r);
      end;
      // alle "Zeichen"-Zeiger eins nach vorne setzen
      Inc(p);
      Inc(q);
      Inc(r);
    end;
  finally
    FreeAndNil(ms);
  end;
  // Anzahl der gefundenen Zeichenfolgen ausgeben
  ShowMessage(IntToStr(i));
end;					

1:

Move(Pointer(sZielString)^, pDeinPointer^, iAnzahlAnBytesOderDieLaengeDieDerStringHabenSoll);					

1:
2:

SetLength(sZielString, iAnzahlAnBytesOderDieLaengeDieDerStringHabenSoll);
Move(sZielString[1], pDeinPointer^, iAnzahlAnBytesOderDieLaengeDieDerStringHabenSoll);