Ini Nda ..??

function StrSimilar (s1, s2: string): Integer;
var hit: Integer;
    p1, p2: Integer;
    l1, l2: Integer;
    pt: Integer;
    diff: Integer;
    hstr: string;
    test: array  of Boolean;
begin
  if Length(s1) < Length(s2) then begin
    hstr:= s2; s2:= s1; s1:= hstr;
  end;
  l1:= Length (s1);
  l2:= Length (s2);
  p1:= 1; p2:= 1; hit:= 0;
  diff:= Max (l1, l2) div 3 + ABS (l1 - l2);
  for pt:= 1 to l1 do test[pt]:= False;
  repeat
    if not test[p1] then begin
      if (s1[p1] = s2[p2]) and (ABS(p1-p2) <= diff) then begin
        test[p1]:= True;
        Inc (hit);
        Inc (p1); Inc (p2);
        if p1 > l1 then p1:= 1;
      end else begin
        test[p1]:= False;
        Inc (p1);
        if p1 > l1 then begin
          while (p1 > 1) and not (test[p1]) do Dec (p1);
          Inc (p2)
        end;
      end;
    end else begin
      Inc (p1);
      if p1 > l1 then begin
        repeat Dec (p1); until (p1 = 1) or test[p1];
        Inc (p2);
      end;
    end;
  until p2 > Length(s2);
  Result:= 100 * hit DIV l1;
end;

procedure TForm1.Button1Click(Sender:TObject);
var i : integer;
function min2(a,b:integer):integer;begin if a<b then result := a else result := b; end;
begin
  {membandingkan seluruh isi memo1 dan memo2}
  Memo3.Lines.Add(inttostr(strsimilar(memo1.lines.text, memo2.lines.text)));
  {membandingkan per baris memo1 dan memo2}
  for i := 0 to min2(memo1.lines.count, memo2.lines.count) do
     Memo3.Lines.Add(inttostr(strsimilar(memo1.lines[i], memo2.lines[i])));
end;