1:

QRImage1.Picture:=Image1.Picture;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

var i:Integer;
    S:String;
    temp2,Chunk,Temp:String;
begin
  S:= LNR;
  while length(S)<8 do Insert('0',S,1); // wichtig, immer länge 8
  temp:='';
  if Length(S) mod 2 <>0 then Insert('0',S,1); // nur gerade zulassen
  temp2:=S;
  for I:= 1 to Length(S) div 2 do begin
    Chunk:= copy(temp2,1,2);
    if StrToInt(Chunk)<90 then
      temp:= temp+chr(StrToInt(Chunk)+33)
    else
      temp:= temp+chr(StrToInt(Chunk)+71);
    delete(temp2,1,2);
  end;
  value:=Chr(171)+temp+Chr(172); 
end;