Пример авторизации

[controller]

ну спору нет, если ты разобрался, проще говорить, чем дать какую то подсказку, как исправить, я все темы тут перечитал, связанные с этой простой программой.... Просто я понять не могу, до какого уровня она работает, приходит один и тот же пакет в конце, 0х2А...

Добавлено через 16 часов 26 минут
при

  bf_key:=HexToStr('6B60CB5B82CE90B1CC2B6C556C6C6C6C');
  //bf_key:=HexToStr('5F3B352E5D39342D33313D3D2D257854215E5B24');
  bf.Init(bf_key);
  RS_connect;
  RequestAuthLogin(Edit3.Text,Edit4.Text);

ругается на

Procedure Base256StringToFGInt(str256 : String; Var FGInt : TFGInt);
Var
   temp1 : String;
   i : longint;
   trans : Array[0..255] Of String;
Begin
   temp1 := '';
   initialize8(trans);
   For i := 1 To length(str256) Do temp1 := temp1 + trans[ord(str256[i])];
   While (temp1[1] = '0') And (temp1 <> '0') Do delete(temp1, 1, 1);
   Base2StringToFGInt(temp1, FGInt);
End;

Подскажите что не так?