PCRE в Delphi

[kunio]

Кодю на Delphi 7.
Понадобилось написать программу с использованием динамической библиотеки PCRE.
Покопавшись на сайте создателя нашел библиотеку и 2 модуля для работы с ней(архив прикрепил)

Сама библиотека написана в С, и большинство информации в Интернете по PCRE тоже идет с примерами в С.

Суть проблемы вот в чем.
Взяв за основу пример на С (http://ru.wikipedia.org/wiki/PCRE) решил попробовать переписать его в делфи.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, pcre, pcre_dll;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  re:tpcreh;
  a1:pchar;
  err:PChar;
  errof:Integer;
  //
  count: integer;
  txt:PChar;
  ove:pIntArray;
  ovecsize1:Cardinal;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  txt:='test';
  a1:='[es]';
  re:=pcre_compile(a1, 0 , err, errof, nil);
  count:=pcre_exec(re,nil, txt, 4,0,0,ove,30);
  memo1.Text:=inttostr(count);

end;

end.

Но после запуска если смотреть переменнаю count - она содержит код ошибки (-2).

Сообщение от http://dh.opennet.ru/pcre5.html#pcre_exec

int pcre_exec(const pcre *code, const pcre_extra *extra, const char *subject, 
    int length, int startoffset, int options, int *ovector, int ovecsize);

PCRE_ERROR_NULL (-2)
Один из указателей - code, subject, ovector - имеет значение NULL или ovecsize равно 0.

Count должен отображать кол-во совпадений.

Что в моем коде написано не так? и как правильно обращаться к функциям данной библиотки? очень прошу помочь!

PS: Лично сам грешу на ovector, но в чем проблема, и что сделать, чтоб все заработало, понятия не имею

[maxionans]

Зачем изобретать велосипед? Всё уже есть!
http://www.regular-expressions.info/delphi.html

[SnX]

Может так?

ove:array[1..30] of integer;
...
count:=pcre_exec(re,nil, txt, 4,0,0,@ove,30);