>>299
こういう使い方をすれってことだろ

　Len1 := Length(Text1);
　Len2 := Length(Text2);

　for i := 1 to Len1 do
　　if SameText(Copy(Text1, i, Len2), Text2) then