TQueue

MMSQueue:= TQueue.Create;
MMSQueue.Push(StrNew(PChar(strAccidentTime)));//堆上申请空间
 strRecv:= MMSQueue.Pop;
       argTime:= StrPas(strRecv);
       StrDispose(strRecv);//手动释放内存
MMSQueue.Free;