Я хочу создать функцию в Delphi, которая вычисляет разные уровни двух строк. Если две строки равны (без учета регистра), то он должен вернуть 0, но если они не равны, он должен вернуть количество разных символов. Эта функция может быть очень полезна для проверки орфографии.

<code>function GetDiffStringLevel(S1,S2:string):Integer;
begin
  if SameText(S1,S2) then Exit(0);
  // i want get different chars count
end
</code>

образцы кода:

<code>Diff:=GetDiffStringLevel('Hello','Hello');// Diff:=0;
Diff:=GetDiffStringLevel('Hello','2Hello');// Diff:=1;
Diff:=GetDiffStringLevel('Hello','H2ello');// Diff:=1;
Diff:=GetDiffStringLevel('Hello','Hello W');// Diff:=2;
Diff:=GetDiffStringLevel('Hello','World');// Diff:=6; or 5
</code>