function TATABufferInterpreter.GetModelFromBuffer: String; const ModelStart = 27; ModelEnd = 46; var CurrentWord: Integer; begin result := ''; for CurrentWord := ModelStart to ModelEnd do result := result + Chr(BufferInterpreting[CurrentWord * 2 + 1]) + Chr(BufferInterpreting[CurrentWord * 2]); result := Trim(result); end;