Преобразовать код

[GlobusVen]

Нужно преобразовать код с delphi в lazarus. Системным преобразованием пробовал, но выводит символы, а должно шифр. Пожалуйста помогите!

procedure TForm1.Button2Click(Sender: TObject);
var
i,a,b,c,x,y:integer;
tex,pass,rez:string;
begin
begin

tex:=edit4.Text;
pass:=edit5.Text;
x:=length(tex);
y:=length(pass);
while x>y do begin
pass:=pass+edit5.Text;
y:=length(pass);
end;
for i:=1 to x do begin
a:=ord(tex[i]);
b:=ord(pass[i]);
c:=a+b;
if c>255 then c:=c-255;
rez:=rez+chr(c);
end;
edit6.caption:=rez;
end;

end;

[Serge_Bliznykov]

попробуй заменить String на AnsiString:

tex,pass,rez:AnsiString;