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:

procedure TForm2.SuchenClick(Sender: TObject);
begin
  FindDialog1.Position := Point(Memo1.Left + Memo1.Width, Memo1.Top);
   FindDialog1.Execute;
end;
procedure TForm2.FindDialog1Find(Sender: TObject);         
var
  FoundAt : LongInt;
   StartPos, ToEnd : Integer;
begin
  with Memo1 do
   begin
    if SelLength <> 0 then
       StartPos := SelStart + SelLength
     else
       StartPos := 0;
        ToEnd := Length(Text) - StartPos;
        FoundAt := FindText(FindDialog1.FindText,StartPos,ToEnd,[stMachCase]); {Hier kommt bei mir die Fehlermeldung "Inkomptible Typen"}

       if FoundAt <> -1 then
         begin
           SetFocus;
            SelStart := FoundAt;
            SelLength := Length (FindDialog1.FindText);
          end;
   end;
  
end;					

1:
2:
3:

       else
         StartPos := 0;
         ToEnd := Length(Text) - StartPos;