Mit Pos im String suchen, was weiter?

[Luckie]

Wie wäre es hiermit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  p : PChar;
  i : Integer;
begin
  Edit1.Text := 'Hello world';
  i := 0;
  p := PChar(Edit1.Text);
  while p^ <> #0 do
  begin
    if p^ = 'l' then
      Inc(i);
    Inc(p);
  end;
  ShowMessage(IntToStr(i));
end;

Sollte recht effizient sei, da einfach nur der Zeiger auf das nächste Zeichen gesetzt wird.

Mist jetzt, poste ich in einem Thread schon zweimal den gleichen Code.