title: Crc16 To String
body: <p>I can convert string to crc16 but I need convert crc16 to string.Is it possible?</p>
  
  <pre><code>function TForm1.CRC_16(Icerik: string): word;
  var
    valuehex: word;
    i: integer;
    CRC: word;
  Begin
    CRC := 0;
    for i := 1 to length(Icerik) do
    begin
      valuehex := ((ord(Icerik[i]) XOR CRC) AND $0F) * $1081;
      CRC := CRC SHR 4;
      CRC := CRC XOR valuehex;
      valuehex := (((ord(Icerik[i]) SHR 4) XOR LO(CRC)) AND $0F);
      CRC := CRC SHR 4;
      CRC := CRC XOR (valuehex * $1081);
    end;
    CRC_16 := (LO(CRC) SHL 8) OR HI(CRC);
  end;
  </code></pre>
  
  <p>This function convert string to CRC16 .</p>