1:
2:
3:
4:

    TextVar := 'Ein etwas längerer Text, der zu durchsuchen ist.');
    SuchText := 'Der';
    x := Pos(Suchtext, TextVar); // = 0, weil "Der" nicht vorhanden ist.
    x := Pos(Uppercase(Suchtext),Uppercase(TextVar)); // >0, weil ohne Groß-/Kleinschreibung getestet wird.					

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:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:

type
  TPointArray = Array of TPoint;

function demo(const A: String; const B: String): TPointArray;
var
  pShorterStr : PString;
  pLongerStr  : PString;
  i, j        : Integer;
  zeroBuf     : Array of Integer;

  function getMaxAdjacentZeroes(): Integer;
  var
    i, idx: Integer;
  begin
    Result := 0;
    idx := 0;
    for i := 0 to High(zeroBuf) do
      if (zeroBuf[i] <> 0) then
      begin
        if idx <> -1 then
        begin
          if (i - idx) > Result then
            Result := i - idx;
          idx := -1;
        end;
      end else
        if idx = -1 then
          idx := i;
      if (idx <> -1) and (i - idx > Result) then
        Result := i - idx;
  end;

  procedure add(const x, y: Integer);
  begin
    SetLength(Result, Length(Result) + 1);
    Result[High(Result)] := Point(x, y);
  end;

begin
  if Length(A) <= Length(B) then
  begin
    pShorterStr := @A;
    pLongerStr  := @B;
  end else
  begin
    pShorterStr := @A;
    pLongerStr  := @B;
  end;
  SetLength(zeroBuf, Length(pShorterStr^));
  for i := -Length(pShorterStr^) to Length(pLongerStr^) do
  begin
    for j := 1 to Length(pShorterStr^) do
      if i+j < 0 then
        zeroBuf[j-1] := -1
      else
        zeroBuf[j-1] := Ord(pShorterStr^[j]) xor Ord(pLongerStr^[i+j]);
    j := getMaxAdjacentZeroes();
    if (j > 0) then
      add(i, j);
  end;
end;

var
  pa: TPointArray;
  i: Integer;

begin
  pa := demo(
    'was ist ein Brettspiel',
    'Mensch ärgere dich nicht ist ein Brettspiel, das mit einem Würfel gespielt wird');
  for i := 0 to High(pa) do
    writeln(pa[i].X, ' - ', pa[i].Y);
  readln;
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:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:

-19 - 1
-14 - 1
-13 - 1
-10 - 1
-8 - 1
-7 - 1
-5 - 1
-4 - 1
-2 - 2
-1 - 1
1 - 1
2 - 1
3 - 1
4 - 1
6 - 1
7 - 1
8 - 1
9 - 1
10 - 1
11 - 1
12 - 1
13 - 1
15 - 1
16 - 1
17 - 2
20 - 1
21 - 19
22 - 1
24 - 1
25 - 1
26 - 1
27 - 1
29 - 1
30 - 1
31 - 1
33 - 1
35 - 1
36 - 1
37 - 1
39 - 1
41 - 1
42 - 1
43 - 2
45 - 5
46 - 1
47 - 1
48 - 1
49 - 1
50 - 1
51 - 5
53 - 1
54 - 1
55 - 1
57 - 1
58 - 1
59 - 1
61 - 1
62 - 1
63 - 1
64 - 1
66 - 1
67 - 2
71 - 1
72 - 1
74 - 1
75 - 1
76 - 1
77 - 1
78 - 1					

1:
2:

Mensch ärgere dich nicht ist ein Brettspiel, das *snip
                     was ist ein Brettspiel