Hallo PiT123,
wenn Du in Zukunft mehr mit Strings arbeiten wirst, könntest Du Dir einmal
reguläre Ausdrücke etwas genauer ansehen. Mit ihnen wäre die Lösung Deines Problems beim Wort "Delphi" egal ob mit großem oder kleinem "D" und nur als "einzelnes Wort" aber auch am Zeilenanfrag bzw beendet mit einem "." relativ einfacht, ohne die verschiedenen Varianten der Form " Delphi ", " delphi.", ... überprüfen zu müssen.
Eine Lösung könnte dann zB so aussehen:
Delphi-Quellcode:
Result:= 0;
with RegExp('(?i)\bDelphi\b') do
if Execute(Memo1.Text) then
repeat
Inc(Result);
until not ExecuteNext;