Zeichenkette im RichEdit zählen

[Elexarie]

Hallo Delphi-Praix,

ich sitze gerade an einem kleinen Programm, mit dem ich Chars und Strings zählen soll.

Chars habe ich hinbekommen, was wiefolgt aussieht:

Delphi-Quellcode:

begin
    CountButton2 := 0;

      for i := 1 to Length(RichEdit1.Text) do
        begin
          if (RichEdit1.Text[i] = Edit1.Text) then
          inc(CountButton2)
        end;
    Label2.Caption := 'Es sind ' + inttostr(CountButton2)  + ' ' + Edit1.Text + ' vorhanden.';
end;

Nun soll ich das ganze aber mit einer Zeichenkette machen. Ich habe aber gerade keine logische Lösung dafür.
Angenommen ich suche 'Hallo';
Ich muss ja von der Position 1 die nächsten fünf Buchstaben überprüfen. Nun ist meine Idee ursprünglich gewesen, die nächsten 4 Stacks des Arrays zu untersuchen, aber wie mache ich das denn am einfachsten. Leider kann man ja nicht auf diese Art vorgehen. Habt ihr andere Vorschläge. Bitte erstmal nur Pseudocode. Will die Lösung selbst syntaktisch ausarbeiten. Wenn ich wirklich nicht weiterkomme, bitte ich noch einmal um einen Code.

Vielen Dank im Vorraus. Entschuldigungen für die vielen Fragen. Ich hoffe ich kann künftig selber dienen.