Erro na DLL que criei...e agora ???

Eu criei a Dll abaixo para formatar campos de data. Alguém saberia me dizer porque quando eu coloca 4 ou 5 caracteres no campo que eu quero formatar ele dá. Invalid Pointer Operation. Porém seu eu colocar qualquer outra quantidade de caracteres, funciona perfeitamente.

library Util;
uses
SysUtils,
Classes;
{$R *.res}

Function Datar(Texto : string):string; export;
Var
i:integer;
Texto_f, comp, temp : string;
Begin
comp := DateToStr(Date);
If (Texto <> ´´) then
Begin
For i := 1 to Length(Texto) do //retira as barras da string
If (Texto[i] <> ´/´) then
Texto_f := Texto_f + Texto[i];
For i := 1 to Length(Texto_f) do
Begin
If (i = 3) or (i = 5) then

temp := temp + ´/´;
Temp := Temp + Texto_f[i];
End;
If Length(Temp) < 11 then
For i:= (length(Temp) + 1) to 11 do
Temp := Temp + comp[i];
End;
Result := Temp;
end;
exports
Datar;
begin
end.
:shock: