Шифрация данных

[Halogen]

Ребят помогите что не так при шифрации критует почему то

procedure TFormKlick.Shifr(FileName: string);
var
  FileShifr,FileShifrOK:TStringList;
  f,p,i,h,gl,g:Integer;
  FH,SO,PS,pPS:string;
begin
 FileShifr:=TStringList.Create;
 FileShifrOK:=TStringList.Create;
 FileShifr.LoadFromFile(FileName);
 gl:=FileShifr.Count;
 for g:=0 to gl-1 do
 begin
 FH:=FileShifr.Strings[g];
  f:=Length(FH);
 PS:='Pass';
  p:=Length(PS);
  i:=Round(f/p);
  pPS:='';
  for h:=1 to i do
  pPS:=pPS+PS;
  pPS:=Copy(pPS, 1, f);

  for h:=1 to f do
  begin
    if (ord(FH[h])+ord(pPS[h])) >255 then
    SO:=SO+chr(ord(FH[h])+ord(pPS[h])-255)
    else
    SO:=SO+chr(ord(FH[h])+ord(pPS[h]));
  end;
  FileShifrOK.Add(SO);
  SO:='';
  end;
  FileShifrOK.SaveToFile(FileName);
  FileShifr.Free;
  FileShifrOK.Free;
end;

[Halogen]

for h:=1 to f do
for h:=0 to f do

Я в шоке пол утра промаелся