1:

FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, mySearchTypes);					

1:
2:

if AnsiStrLComp(@findWhat[1], @inString[findPos],
  patternlen) = 0 then					

1:
2:

if AnsiStrLComp(PChar(@findWhat[1]), PChar(@inString[findPos]),
  patternlen) = 0 then					

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

var
  i: Integer;
begin
  for i := RichEdit1.CaretPos.Y-1 downto 0 do
  begin
    if Pos(Edit1.Text, RichEdit1.Lines[i]) > 0 then
    begin
      RichEdit1.SelStart :=
        RichEdit1.Perform(EM_LINEINDEX, i, 0);

      RichEdit1.SelStart := RichEdit1.SelStart+Pos(Edit1.Text, RichEdit1.Lines[i])-1;
      RichEdit1.SelLength := Length(Edit1.Text);
      break;
    end;
  end;					

1:
2:
3:

    if SelLength <> 0 then
      FStartPos := SelStart else
      FStartPos := 0;					

1:
2:
3:

  RichEdit1.SelStart := RichEdit1.SelStart+Pos(FindDialog1.FindText, RichEdit1.Lines[i])-1;
  Richedit1.SetFocus;
  RichEdit1.SelLength := Length(FindDialog1.FindText);					

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:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, StrUtils;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    RichEdit1: TRichEdit;
    FindDialog1: TFindDialog;
    Finden: TButton;
    procedure FindenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FindDialog1Find(Sender: TObject);
  private
    { Private-Deklarationen }

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FindenClick(Sender: TObject);
begin
  FindDialog1.Position :=
    Point(Form1.Left + RichEdit1.Width div 2, Form1.Top + Panel1.Height);
  FindDialog1.FindText:=Richedit1.SelText;
  FindDialog1.Execute;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
    s : string;
begin
 s := '';
 for i:=1 to 20 do  begin
  Richedit1.Lines.Add(s +'Eines dieser Worte kann gesucht werden' );
  s := s + ' ';
  Richedit1.SelStart:=0;
 end;
end;

procedure TForm1.FindDialog1Find(Sender: TObject);
//Befehle zur Vorwärts-Suche gemäß Delphi-Hilfe
var
  FoundAt, LgText: LongInt;
  StartPos, SelPos, ToEnd: LongInt;
  lgFindText: integer;
  mySearchTypes : TSearchTypes;
  myFindOptions : TFindOptions;
  sTemp,subTemp : string;
begin
  mySearchTypes := [];
  with RichEdit1 do
  begin
    lgFindText:= length(FindDialog1.FindText);
    if frMatchCase in FindDialog1.Options then
       mySearchTypes := mySearchTypes + [stMatchCase];
    if frWholeWord in FindDialog1.Options then
       mySearchTypes := mySearchTypes + [stWholeWord];
     {Beginne die Suche nach der aktuellen Auswahl, wenn es eine gibt. }
     {Andernfalls beginnen Sie am Anfang des Textes. }
    if frdown in FindDialog1.Options then
    begin {Vorwärtssuche}
     subTemp:=FindDialog1.FindText;
     if SelLength <> 0
       then StartPos := SelStart + SelLength    {dann nach Markierung starten}
       else StartPos := SelStart; {:=0 Start von Anfang}
       {ToEnd ist die Länge von StartPos bis zum Ende des Textes in Richedit}
       ToEnd := Length(Richedit1.Text) - StartPos;
    end
    else   {Rückwärtssuche}
     begin {Richedit.Text und FindText umkehren, SelStart merken, }
      Lines.Beginupdate;
      SelPos:=SelStart;
      lgText:=length(Richedit1.Text);
      sTemp:=Text;
      subTemp := ReverseString(FindDialog1.FindText);
      Text := ReverseString(sTemp);
      StartPos:= lgText-SelPos;
      ToEnd:= lgText;
     end;
  {Klein-Groß-Suche funktioniert nicht korrekt. Mit [] wird alles gefunden,
   aber Button im Feld wird ignoriert}
   FoundAt := FindText(subTemp, StartPos, ToEnd, mySearchTypes);
   if not (frdown in FindDialog1.Options) then
      Text:=sTemp; //Text wiederherstellen
   Lines.EndUpdate;
   if FoundAt <> -1 then  //gefunden
    begin
     if not (frdown in FindDialog1.Options) then
      begin //nach rückwärts-suchen
       SelStart:= lgText-FoundAt-lgFindText;
       FoundAt:=SelStart;
      end;
      SelStart := FoundAt;
      Perform(EM_SCROLLCARET, 0, 0);
      Richedit1.SetFocus;
      SelLength := lgFindText;
    end
    else Beep;  //nicht gefunden, Dateigrenze erreicht
  end;  {with Richedit}
end;

end.