Консольное приложение зависает при использовании String и TStringList

{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils, System.Types, System.Classes, IOUtils;
 
type
  TMyClas = class 
....

//s : String;
//rec84 : array of byte;
s := s + IntToHex(rec84[i], 2);
s := dat + ';' + tim + ';' + s1 + ';' + s1 + ';' + dur.ToString; //все String,  dur - Integer
l.Add(s); //L : TstringList

s := Format('%s;%s;%s;%s;%d', [dat, tim, s1, s1, dur]);

SetLength(rec84, buffer); //определить память для массива с записью
ms.Position := position;
//считаем пакет в буферный массив для его обработки и вытаскивания данных
ms.Read(rec84[0], SizeOf(AnsiChar) * Length(rec84));

ms.Read(rec84[0], SizeOf(Char) * Length(rec84));

rec84: array of byte;

ms.Read(rec84[0], SizeOf(byte) * Length(rec84));

ms.Read(rec84[0], SizeOf(byte) * Length(rec84));

ms.Read(rec84[0], Length(rec84));

du_int := StrToInt('$' + IntToHex(rec84[i+10], 2) + IntToHex(rec84[i+9], 2) + IntToHex(rec84[i+8], 2));

procedure TForm1.Open1Click(Sender: TObject);
var
ms : TMemoryStream;
i,j:Integer;
position: Int64;
mas : array of byte;
first_byte, sec_byte : byte;
begin
if not OpenDialog1.Execute then exit;
ms := TMemoryStream.Create;
ms.LoadFromFile(OpenDialog1.FileName);
position := 0;
while Position <= ms.Size do BEGIN
      ms.Position := position;
      ms.Read(first_byte, SizeOf(first_byte));
      if first_byte = 132 then Begin
         ms.Read(sec_byte, SizeOf(sec_byte));
         mas := nil;
         SetLength(mas, sec_byte);
         ms.Position := position;
         ms.Read(mas[0], SizeOf(AnsiChar) * Length(mas));
         //Тут идет обработка массива rec84
         inc(Position, sec_byte);
         End else inc(Position);
      END;
ms.Free;
end;

var  N3b : Integer;
...
  N3b:=0;
  Move([rec84[i+8],N3b,3);