mostrar un porcentaje o progressbar

[rzf1983]

mas o menos si es mi problema, pero no del todo, a ver si me explico mejor.

Tngo una dll con una funcion codificar ("archivo entrada","archivo salida"). Dentro de esa funcion si es facil calcular el porcentaje que llevamos comprimido. El problema es cuando en delphi llamo a la funcion:

procedure TForm1.Button1Click(Sender: TObject);
begin
//Foo(PChar(a), PChar(b));
codificar (Pchar(archivoin),Pchar(archivoout),);
end;

He usado un timer para lo d la progressbar pero claro, yo creo que cuando llamo a codificar, delphi no puede atender al timer mientras no aya acabado la funcion codificar. Lo unico que e conseguido es que cuando termina esa funcion entonces si muestra la barra completa y 100, pero solo al final y no durante el proceso.