в строке найти подстроку

[gylayko]

нужно с помощью алгоритма Бойера-Мура найти в строке подстроку.

type
TBMTable = array[0..255] of Integer;
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Memo2: TMemo;
    Label3: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  T: TBMTable;

implementation

{$R *.dfm}
procedure MakeBMTable( var BMT : TBMTable; const P : String);
var
  i : Integer;
begin
  for i := 0 to 255 do BMT[i] := Length(P);
    for i := Length(P) downto 1 do
      if BMT[Byte(P[i])] = Length(P) then
        BMT[Byte(P[i])] := Length(P) - i;
end;

function BMSearch(StartPos: Integer; const S, P: String; BMT: TBMTable): Integer;
var
  Pos, lp, i,kol: Integer;
begin

  kol:=0;
  for i := 0 to 255 do BMT[i] := Length(P);
  for i := Length(P) downto 1 do if BMT[Byte(P[i])] = Length(P) then
  BMT[Byte(P[i])] := Length(P) - i;

  lp := Length(P);
  Pos := StartPos + lp -1;
  while Pos <= Length(S) do
  if P[lp] <> S[Pos] then Pos := Pos + BMT[Byte(S[Pos])] else
  if lp = 1 then
  begin
    inc(kol);
    inc(Pos);
  end else
  for i := lp - 1 downto 1 do
  if P[i] <> S[Pos - lp + i] then
  begin
   Inc(Pos);
  end
  else if i = 1 then
  begin
    inc(kol);
    inc(Pos);
  end;
  {Result}bmsearch := kol;
end;


procedure TForm1.Button1Click(Sender: TObject);
var i, str, pr, start, c, k: integer;
s,p,txt:string[30];
begin
s:=Memo1.Text;
p:=Edit1.Text;
i := bmsearch(1,s,p,T);
Memo2.Lines.Add('количество вхождений  '+IntToStr(i));
c:=0;
MakeBMTable( T, Edit1.Text );
str:=Length(Edit1.Text);
for k:=0 to Memo1.Lines.Count-1 do
 begin
  txt:=Memo1.Lines.Strings[k];
  start:= 1; pr:=-1;
  while pr <> 0 do
  begin
   pr := BMSearch(start, txt, Edit1.Text, T);
  if pr = 0 then break;
  Memo2.Lines.Add('строка '+IntToStr(k + 1)+' позиция '+IntToStr (pr));
  inc(start, str + pr); inc(c);
  end;

 end;
 end;

end.

в результате правильно определяет только строку, а позиция всегда 1, да еще и 2 раза. в чем ошибка?