Реализовать алгоритм обмена ключами по схеме Диффи-Хеллмана

procedure TForm1.ButtonDiffHellClick(Sender: TObject);
const
// Это две константы алгоритма
  R : Int64 = 7;
  N : Int64 = 127;  //Простое число. Для типа INT64 показатель степени не должен превышать 9
Var Rx, R1, R2, Code1, Code2 : Int64;
    xx, yy, i  : Integer;
begin
//==========1-й получает R1 и передает 2-му=============
  Randomize;
  xx:=Random(6)+3;  //Случайный показатель степени
  Rx:=R;
  For i:=2 to xx do Rx:=Rx*R;  //Возводит в степень XX
  R1:=Rx mod N;
 
  //2-й, получив R1 от 1-го, делает
  Randomize;
  yy:=Random(6)+3;  //Случайный показатель степени
  Rx:=R1;  //Это 2-ой получил от 1-го
  For i:=2 to yy do Rx:=Rx*R1; //Возводит в степень YY
  //и получает код
  Code2:=Rx mod N;
  StaticText1.Caption:='Code2= '+IntToStr(Code2);
 
  Rx:=R;
//==========2-й получает R2 и передает 1-му=============
  For i:=2 to yy do Rx:=Rx*R;  
  R2:=Rx mod N;
  //1-ый, получив R2 от 2-го, делает
  Rx:=R2;
  For i:=2 to xx do Rx:=Rx*R2;
  //и получает код
  Code1:=Rx mod N;
  StaticText2.Caption:='Code1= '+IntToStr(Code1);
  //Коды Code1 и Code2 получаются равными
end;