Там библиотека не нужна. Заводим два массива, в них вручную прописываем коды символов (в первый массив - первый байт, во второй - второй) естественно, массивы нужно построить так, чтобы индекс соответствовал коду символа ASCII. То есть, например, символ имеет номер N и код AABB, тогда в первом массиве под индексом N должно быть AA, во втором - BB. Дальше все просто
for i := 1 to Length(S)-1 do
begin
jsr_75i.write_byte(b1[ord(GetChar(S,i))]);
jsr_75i.write_byte(b2[ord(GetChar(S,i))]);
end;
Примерно так, от балды написал.
Хотя, наверное есть какой-нибудь алгоритм пересчета из ASCII в юникод, но потом опять же придется результат на байты резать, тоже лишние телодвижения.