Function UpTextMatch(FindStr, UpTxt: string): boolean;
var
  fL, uL, i: integer;
  Hi, J: Extended;
begin
  fL := Length(FindStr)-1;
  uL := Length(UpTxt);
  Writeln(ToStr(fL)+' '+ToStr(uL))

  for i := 1 to uL do
  begin
    J := JaroWinkler(FindStr, Copy(UpTxt, i, Min(i+fL, uL)));

    Writeln(ToStr(J)+'  : '+ToStr(Copy(UpTxt, i, i+fL)));
    if J > Hi then
      Hi := J;
  end;
end;