[km_]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var str, shStr, key: string;
i: integer;
begin
str:='hello world';
randomize;
for i:=1 to length(str) do
  key[i]:=chr(random(255));
for i:=1 to length(str) do
  shStr[i]:=str[i] xor key[i]; //подчеркивается эта строка
end;
end.

Admin: Не забываем про теги!