case asciiResult of
     1: SetLength(Result, 1) ;
     2:;
     else
       Result := ';
   end;