Escapes codes in a text file and retrieve it to load the variable again

The variable data below has some Escape controls , how to put that
controls in a text file and retrieve it  to load the variable again.

 var
 data , Contact : string;
 begin
   Contact:=Table1.FieldByName ('Company').Text  ;
   data:=+#27+'*p240x935Y'+Contact
 I try this program below but it comes like one big string and i loose codes
 const
 BufSize = 32768;
 var
 Count : Integer;
 Buffer: array[1..Bufsize] of Char;
 fmt: file;
 begin
  assignfile(fmt,'c:\data.txt'); ---> this file
has...+#27+'*p240x935Y'+Contact
         reset(fmt,1);
         while not eof(fmt) do
         begin
         blockread(fmt,Buffer,bufsize,count);
         data:=Buffer;   ------->  Here i load the variable but comes like
this'+#27+'*p240x935Y'+Contact'
                                           one big string and i loose the
Escapes
                                              and Contact field variable.