encode/encrypt kal packets frage

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
  memo1.Text:='';
  for i:=1 to 256 do
  begin
  memo1.Lines.add(chr(i));
  end;
end;

var number:Integer;
begin
number:=ord('A')  //number is now 65
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
  memo1.Text:='';
  for i:=0 to 255 do
  begin
  memo1.Lines.add(chr(i));
  end;
end;

//so the usefull comands in Delphi are:
//chr(65)=='A'
//ord('A')==65

lengthOfString:=ord(String[1]);
//String[1] is the first letter of the String
//and with "ord" you make this letter to a number
//this number is the length of the whole string!

procedure TForm1.Button1Click(Sender: TObject);
var cryptTable: TStringlist;
path,s,tmp,text,txt2:String;
lengthOfString,i,i2,l,t,t2,t3,j,key,getPos,keyfound:Integer;
begin
  cryptTable := TStringList.Create;
  edit2.Text:='';
  Memo1.text:='';
  path:='C:[bla bla]CryptTableHexList.txt';
 //path:=edit3.text;

 if not fileexists(path) then
 begin
  showmessage('Wrong Way to the Hex Crypt Table!!! Check it and correct it!');
  exit;
 end;

 cryptTable.LoadFromFile(path);

 tmp:=Edit1.text;
 tmp:=stringreplace(tmp, ' ', '', [rfreplaceall,rfignorecase] ); //remove all spaces
 l:=length(tmp);  //get length of the hex String
 l:=l div 2;

 text:=Edit1.text;
  for i:=1 to l do  //convert the hex String to normal String:
  begin
    s:=Copy(text, 1, 2);
    edit2.Text:=edit2.Text+Chr(StrToInt('$' + s)); //convert one hex to string
    delete(text,1,3);
  end;
 //now we have in edit2.text the converted string!



//now the encrypting :)

 //get the last hex letter to find the key from crypt table:
 t:=length(edit1.text);
 tmp:=Copy(edit1.text, t-1, 2);



 //search for this letter in the crypt table to find the key!
 j:=0;
 keyfound:=0;
   for i:=0 to 199 do  //200 keys
   begin
     if tmp=cryptTable[j] then
      begin
       key:=i+1;
       keyfound:=keyfound+1;
 //encrypting: (i do it this way because there are some crypt keys the same, for example 29) it is in the 1 key Table and in 30
          memo1.lines.Add('encryptet with Key: '+inttostr(key));
              txt2:='';
              text:=Edit1.text;
              for i2:=1 to l do // get hex by hex ;D
              begin
               s:=Copy(text, 1, 2);  //the hex key
                 for t2:=0 to 255 do   //search the list for EVERY hex!!! so it could be slow with much text :/
                 begin
                   t3:=t2+j;
                   if s=cryptTable[t3] then
                   begin
                    getPos:=t2;
                    txt2:=txt2+chr(getPos);
                   end;
                 end;
               delete(text,1,3);    //delet this hex and look the next hex
               end;
       memo1.lines.add(txt2);
       j:=j+256;
      end
      else
      begin
       j:=j+256;
      end;
   end;


if keyfound=0 then
begin
Memo1.lines.add('Sorry No Key was Found :/');
Memo1.lines.add('Please check the last Key from your input hex String!');
end;


end;