"Delphi" Programlama dilinde "Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği" ile ilgili kod örneği aşağıda belirtilmiştir.

program CountSubstring;

{$APPTYPE CONSOLE}

uses
  SysUtils, StrUtils;

var
  str1, sub_string, temp_str: string;
  count: integer;

begin
  str1 := 'Yazılımı çok seviyorum. Yazılım benim herşeyim.';
  sub_string := 'yazılım';

  temp_str := LowerCase(str1);

  count := OccurrencesOfText(sub_string, temp_str);

  Writeln('Adet: ', count);
end.