Почему у мну ошибка???

[Altera]

Вот написал функцию!

function{ Число словами }number_by_words(input_number: integer): string;
const
ones: array [0..19] of string = ('', ' один', ' два', ' три', ' четыри', ' пять',
' шесть', ' семь', ' восемь', ' девять', ' десять', ' одиннадцать', ' двенадцать', ' тринадцать',
' четырнадцать', ' пятнадцать', ' шестнадцать', ' семнадцать', ' восемнадцать', ' девятнадцать');
tens: array [0..9] of string = ('', '', ' двадцать', ' тридцать', ' сорок', ' педесят', ' шесдесят',
' семдесят', ' восемдесят', ' девяносто');
hundreds: array [0..9] of string = ('', ' сто', ' двести', ' триста', ' четыреста', ' пятьсот',
' шестьсот', ' семьсот', ' восемьсот', ' девятсот');
more: array [1..3] of string = (' тысяч', ' миллион', ' миллиард');
var
answer, work, ending: string;
counter, tag, long, index: integer;
mark_negative: boolean;
p: pointer;
begin
   result := ' ноль';
   if input_number = 0 then exit;
   mark_negative := false;
   answer := '';
   p := @answer;
   if input_number < 0 then
   begin
      input_number := input_number * (-1);
      mark_negative := true;
   end;
   work := IntToStr(input_number);
   long := length(work);
   for counter := long downto 1 do
   begin
      ending := '';
      tag := long - counter + 1;
      index := strToInt(work[counter]);
      case tag of
      // 0..999
      1: string(p^) := ones[index];
      2: if index = 1 then string(p^) := ones[strToInt(work[counter] + work[counter + 1])]
      else string(p^) := tens[index] + string(p^);
      3: string(p^) := hundreds[index] + string(p^);
      // 1,000..999,999
      4: if work[counter - 1] <> '1' then
         begin
            if (index = 3) or (index = 4) then ending := 'и';
            if (index = 1) or (index = 2) then
            begin
               if index = 1 then string(p^) := ' тысяча' + string(p^)
               else string(p^) := ' две тысячи' + string(p^);
               end
               else
            begin
               if index > 0 then
               string(p^) := ones[index] + more[1] + ending + string(p^);
            end;
         end;
      5: if index = 1 then string(p^) := ones[strToInt(work[counter] + work[counter + 1])] + more[1] + string(p^)
      else string(p^) := tens[index] + string(p^);
      6: string(p^) := hundreds[index] + string(p^);
      // 1,000,000...999,999,999
      7: if work[counter - 1] <> '1' then
         begin
            if index > 4 then ending := 'ов';            
            if (index = 3) or (index = 4) then ending := 'а';
            if (index = 1) or (index = 2) then
            begin
               if index = 1 then string(p^) := ' миллион' + string(p^)
               else string(p^) := ' два миллиона' + string(p^);
               end
               else
            begin
               if index > 0 then
               string(p^) := ones[index] + more[2] + ending + string(p^);
            end;
         end;
      8: if index = 1 then string(p^) := ones[strToInt(work[counter] + work[counter + 1])] + more[2] + string(p^)
      else string(p^) := tens[index] + string(p^);
      9: string(p^) := hundreds[index] + string(p^);
      end;
   end;
   if mark_negative then answer := ' минус' + string(p^);
   result := string(p^);
end;

В DLL библиотеку воткнул. Но при больших числач ~<1000000 иногда выдаёт ошибку , а иногда возвращает ответ!

А если воткну в приложение, то всё OK ...
На кой так??? Спасибо заранее!

[BOBAH13]

Скажу сразу мне не нравиться string(p^). Юзайте лучше уже p: PCHAR;

[alexBlack]

А в начале dll есть uses ShareMem ?

[Altera]

Вначале у меня было без указателей, и всёравно глючило...

[Altera]

Сообщение от alexBlack

А в начале dll есть uses ShareMem ?

Нет! Нету... Поставить? Ща....