Delphi - Convertir Texto a Binario

Buenas tardes, estoy trabado con esto, esero alguien me pueda ayudar. Yo genero un archivo de texto con cierto formato, por ejemplo:

01000000000000000YRF 0000004444
020000000000000SDSD00SDS546445
5065476876856556654544DDSSSDDD

Lo guardo como archivo txt y no hay ningún problema, todo perfecto. El problema es que me piden que no lo guarde como texto, sino como binario. Algo como:

Pòöñööööööööøòððùðññöððððððððððððóõð@ðððððððöðô÷öñðó÷ô
Põðñööööööööøòððùðññöððððððòòöóòðððð@@@@@@@@ð@@
@@@@@@@@@@@@@@@@@@@@@ððððòòöóòðððð @ð@@

Por ejemplo, si tienes una imagen, le cambias la extensión a txt y lo abres, puedes ver miles de caracteres, eso es lo que necesito pero con texto.

Ayuda!!!.

De antemano gracias por tu tiempo.

Podrias hacer una pseudo encriptación, prueba esto, inserta dos memos en una form y usa este codigo

procedure TForm1.Button2Click(Sender: TObject);
var i, j:integer;
a:string;
begin
Memo2.Lines.Clear;
for i:=0 to Memo1.Lines.Count-1 do begin
a:='';
for j:=1 to length(Memo1.Lines[i])do begin
a:=a+chr(ord(Memo1.Lines[i][j])-60);
end;
Memo2.Lines.Add(a);
end;
end;

Eso te convierte tu texto normal en caracteres similares a los que necesitas, pero este "encriptado" es muy sencilo y fácil de descifrar (esto si lo que pretendes es ocultar la información), pues no existe forma de guardar tu texto de otra forma, para decodificar en lugar de restar 60 sumas 60: a:=a+chr(ord(Memo1.Lines[i][j])+60);