이런식으로 AThread를 써서 송신을 하려고하는대요 자꾸 violation오류가 생깁니다. 화살표 되있는 부분에서

왜 에러가 생기고 해결방법좀 알려주세요 고수님들 부탁드립니다. ㅜ.ㅠ


void __fastcall TPBCICT::Button3Click(TObject *Sender)
{

        TIdPeerThread *AThread;
        struct MES shiftWork;

        SaveInfo("shiftWork",Edit8->Text,"ExWorker");
        SaveInfo("Common",SendTime,"SendTime");
        shiftWork.STX = GetInfo("Common","STX");
        shiftWork.Line = GetInfo("Common","line");
        shiftWork.From = GetInfo("Common","myid");
        shiftWork.McPort = GetInfo("Common","McPort");
        shiftWork.To = GetInfo("Input","To");
        shiftWork.Command = GetInfo("shiftwork","Command");
        shiftWork.SendTime = GetInfo("Common","SendTime");
        shiftWork.ResultCode = GetInfo("shiftwork","ResultCode");
        shiftWork.Size = GetInfo("shiftwork","Size");
        shiftWork.HeaderEnd = GetInfo("Common","HeaderEnd");
        shiftWork.StnId = GetInfo("Common","StnId");
        shiftWork.McPort = GetInfo("Common","McPort");
        shiftWork.MegId = GetInfo("shiftwork","MegId");
        shiftWork.ExWorker = GetInfo("shiftWork","ExWorker");
        shiftWork.ETX = GetInfo("Common","ETX");
---->AThread->Connection->WriteLn(shiftWork.STX+shiftWork.Line+shiftWork.From+shiftWork.To+shiftWork.Command+shiftWork.SendTime+shiftWork.ResultCode+
        shiftWork.Size+shiftWork.HeaderEnd+shiftWork.StnId+shiftWork.McPort+shiftWork.Worker+shiftWork.MegId +shiftWork.ExWorker+shiftWork.ETX);

        if(shiftWork.Worker != shiftWork.ExWorker){
                Edit13->Text = "0";
        }
        SaveInfo("Common",shiftWork.ExWorker,"Worker");

}