кодировка текста по паролю

[s2dentishe]

Всем доброе утро. Возникла небольшая проблема, может кто поможет. Есть текст, его нужно закодировать паролем, а точнее мы берем первый символ текста и складываем его номер кодировки с номером кодировки первого символом пароля, далее второй номер текста со вторым номером пароля и т.д. Когда пароль заканивается, т.к. длина его ограничена нашей возможностью запомнить его =), мы опять начинаем с первого номера кодировки символа пароля. Если число полученное при сложении или вычитании кодировки символов, в зависимости от кодировки или декодировки , за диапазон 0..255 мы выполняем необходимые операции. Это вкратце пояснение к программе, а вот и сама ошибка, при кодировки русского текста случается ситуация,правда не всегда, когда текст кодированный или декодированный урезается до некоего места, почему не знаю, может подскажите. Вот текст программы:

function kodirovka (text, parol_v: String; napr_kod: Boolean): String;
  var
   i, schet,vrem_p: integer;
   d: shortInt;
  begin
   if napr_kod then d:=-1 else d:=1;
   schet:=1;
   vrem_p:=1;
   for i:=1 to Length (text) do
   begin
   if schet>length(parol_v) then schet:=1;
   vrem_p:=(ord (text[i]) +d*ord (parol_v[schet]));
   if vrem_p>255 then text[i]:= chr(vrem_p-256)
   else
   if vrem_p<0 then  text[i]:= chr(256+vrem_p)
   else
   text[i]:= chr(vrem_p);
   schet:=schet+1;
   end;
    result:=text;
  end;

[mihali4]

Текст урезается при появлении символа с нулевым кодом.