Datei platzsparend als Text speichern

[L85]

Also ich möchte irgendeine Datei(exe,res,txt,doc,usw..) in einen Text bzw in Zahlen konvertieren sodass man sie als doc oder txt speichern kann(und lesen, muss aber keinen sinn ergeben) und sie dann auch möglichstwieder zurückkonvertieren kann.
Bisher habe ich das gefunden leider ist er aber nicht wirklich platzsparend:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Source,Data:TMemoryStream; 
var Str:String;
var Y:Byte;
var i,res:integer;


begin
opendialog1.Execute()    ;
 Source:=TMemoryStream.Create;
Source.LoadFromFile(opendialog1.FileName);
Data:=TMemoryStream.Create;
progressbar1.Min:=0;
progressbar1.Max:=Source.Size;
 While source.Position<source.Size do begin
Source.Read(Y,SizeOF(Y));
progressbar1.Position:=Source.Position;
res:=Y  ;
str:=inttostr(res);
  For i:=1 to 3 do begin
res:=Ord(str[i]);
Data.Write(res,1);
end;    end;
Source.Free;
savedialog1.execute;
data.SaveToFile(savedialog1.FileName);
 end;