На android зависает программа, при компиляции на windows работает стабильно

procedure TForm4.Tqueue;
var
i ,j,g:integer;
queueArray:array of array of string;
buffer: String;
fileQueue: text;
list: TstringList;
xml:Txmldocument;
m:integer;
begin
s:=1;
xml:=txmldocument.Create(self);
dmr01m.Clientset;
dmr01m.Client.Connect;
dmr01m.client.SendCmd('Queue',200);
Buffer:=dmr01m.client.LastCmdResult.Text.Text;
dmr01m.client.Disconnect;
   {   AssignFile(fileQueue,'C:\XML\Queue.XML');
      Rewrite(fileQueue);
      Writeln( fileQueue, UTF8Encode (buffer));
      CloseFile(fileQueue);
    }
 try
 xml.XML.Text := Buffer;
  xml.Active:=true;
           StringGrid1.Cells[0,0]:='№ Заявки';
           StringGrid1.Cells[1,0]:='Гараж.Номер';
           StringGrid1.Cells[2,0]:='Модель';
           StringGrid1.Cells[3,0]:='Гос.Номер';
           StringGrid1.Cells[4,0]:='Тип заявки';
           StringGrid1.Cells[5,0]:='Подача в:';
        m:=xml.DocumentElement.ChildNodes.Count;
 
   for i := 1 to m-2 do
  begin
  StringGrid1.Cells[0,i]:=VarToStr(xml.DocumentElement.ChildNodes.Nodes[i].Attributes['OrderNumber']);
  StringGrid1.Cells[1,i]:=VarToStr(xml.DocumentElement.ChildNodes.Nodes[i].Attributes['GarageNumber']);
  StringGrid1.Cells[2,i]:=VarToStr(xml.DocumentElement.ChildNodes.Nodes[i].Attributes['Model']);
  StringGrid1.Cells[3,i]:=VarToStr(xml.DocumentElement.ChildNodes.Nodes[i].Attributes['GosNumber']);
  StringGrid1.Cells[4,i]:=VarToStr(xml.DocumentElement.ChildNodes.Nodes[i].Attributes['TypeRepair']);
  StringGrid1.Cells[5,i]:=VarToStr(xml.DocumentElement.ChildNodes.Nodes[i].Attributes['DateTime']);
  end;
  except
 
 
 end;
 
   end;
end.