1:
2:
3:

A e r z t e
| | | | | |
Ä r z t e					

1:
2:

A C(-)D C
A C...D C					

1:
2:
3:

M o r r i s s e t t e
| | | X X X X X X
M o r i s e t t e					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

function intCompare(s1, s2: string) :boolean;
// compares wors on a similar content
// (c) retnyg

  function reformat (s:string):string;
  var l,i : integer;
  begin
     l:=length(s);
     result := '';
     for i := 1 to l do
       case upcase(s[i]) of
         'A'..'Z': result := result + upcase(s[i]);
         'Ä','ä': result := result + 'AE';
         'Ö','ö': result := result + 'OE';
         'Ü','ü': result := result + 'UE';
       end;
  end;

type ad = array [0..26] of dword;
var
//    count1, count2: ad;
//    pcount: ^ad;
    usedletters1: string;
    usedletters2: string;
    plen : pinteger;
    i,l,l2:integer;
    p, p2: pstring;

begin
  result := false;

  if (length(s1) = 0) or (length(s2) = 0) then exit;

  s1:=reformat(s1);
  s2:=reformat(s2);

  l := length(s1);
  l2 := length(s2);

//  if (l * 100) div (length(s2) * 100)
  plen := @l;
  p := @s1;
  p2 := @usedletters1;
//  pcount:= @count1;
//  zeromemory(pcount,sizeof(ad));

  setlength(p2^,0);

  for i := 1 to plen^ do begin
     if pos(p^[i],p2^) = 0 then
      p2^ := p2^ + p^[i];
//     inc(count1[ord(p^[i])-65]);
  end;

  plen := @l2;
  p := @s2;
  p2 := @usedletters2;
//  pcount:= @count2;
//  zeromemory(pcount,sizeof(ad));

  setlength(p2^,0);

  for i := 1 to plen^ do begin
     if pos(p^[i],p2^) = 0 then p2^ := p2^ + p^[i];
//     inc(count1[ord(p^[i])-65]);
  end;

  if usedletters1 = usedletters2  then begin result := true; exit; end;

end;					

1:
2:
3:
4:
5:

procedure TForm1.Button3Click(Sender: TObject);
begin
  if intCompare('Morrisette', 'moriset') then showmessage('same word');
  if intCompare('ärzte', 'Aerzte') then showmessage('same word');
end;