Шифровка и расшифровка текста

[Ayubkhon]

Шифрую текст таким способом:

procedure TForm1.Button2Click(Sender: TObject);
var i,cp:integer;
    c:string;
begin
  codedpass:='';
  c:=pchar(edit1.Text);
  for i:=1 to length(c)
  do begin
    cp:=ord(c[i]);
    cp:=cp*i;
    codedpass:=codedpass+chr(cp);
  end;
end;

Текст шифруется нормально но при расшифровки шифрованного текста выдает сообщение Incompatible types: 'Byte' and 'Extended'
Вот сам код расшифровки:

procedure TForm1.Button3Click(Sender: TObject);
var i,cp:byte;
    c,decodedpass:string;
begin
  for i:=1 to length(codedpass)
  do begin
    cp:=ord(codedpass[i]);
    cp:=cp/i;
    decodedpass:=decodedpass+chr(cp);
  end;
  showmessage(decodedpass);
end;

В чем может быть проблема или есть какой нибудь другой вариант?

[ex.cluz]

cp:=cp/i;

При делении может получиться дробное число (ну, или так компиллятор думает).
Нужно так:

cp:=round(cp/i);

[Пепел Феникса]

не может получится а получится, используйте div(целочисленное деление)