Access violation at address 004028F5

[Shurik(c)]

procedure ExKey;
var
temp:string;
i,j:integer;
k1,k2: longword;
begin
temp:=password;
i:=1;
while((length(temp)mod PSize)<>0) do
  begin
    temp:=temp+temp[i];
    inc(i);
  end;
  i:=1;
  j:=0;
  while(i<length(temp))do
  begin
    move((PPass+j)^,k1,6);
    move((temp[i]),k2,6);// здесь выдает ошибку
    k1:=((k1 shl k2)xor k2);
    move(k1,(PPass+j)^,6);
    j:=(j+6) mod PSize;
    inc(i,6);
  end;
end;

Access violation at address 004028F5 in module Project1.exe. Read of address 01329BB8
Смотрел в пошаговом режиме temp[i] при i=1 #8 хотя у меня там буква Р