Fórum abrir arquivo DBX (outlook) e extrair e-mails #326067

Turma achei na net uma unit q ´mostra´ como fazer isso.
Adicionei no projeto e chamei. Ela roda sem dar erro, porém ela passa batido em um ponto..

link da unit: http://www.acror.com/modules.php?name=Result&cod=670

trecho q dá o ´erro´

...
FileRead(hFile, Buffer^, BufferSize);
I := 0;
[b:cf2798964f]while I <= BufferSize - 1 do [/b:cf2798964f]
begin
StrEmail := ´´;
...


Justamente nesse while (linha 9 apartir do begin do procedure) ele passa batido. ou seja, esse bufferSize tá vindo.. Quer dizer, não está vindo..

Alguém poderia me iluminar aqui??

estou chamando assim de dentro de um botao..
CheckEMail(´d:\email\erro.dbx´);