Delphi7检测到错误类 EAccessViolation,错误信息:'Access violation at address 0047D5C7 in module
工程 Project1.exe 检测到错误类 EAccessViolation,错误信息:'Access violation at address 0047D5C7 in module 'Project1.exe'.Read of address 00000068'.进程中止.使用单步或运行继续运行

调试运行的时候出现这样的错误，把那段代码贴出来求大伙帮看看是怎么回事，我是新手，不要骂我笨啊
分不多，如果成功解决的话再加分，谢谢各位了

************************错误代码*************************************************
Function TForm1.SendToServer(AThread:TIdPeerThread;Cmd:String): Boolean;
var
MyStream: TMemoryStream;
i:integer;
begin
MyStream:=TMemoryStream.Create;
try
MyStream.Write(Cmd[1],Length(Cmd));
MyStream.Position:=0;
i:=MyStream2.size;
AThread.Connection.WriteLn(inttostr(i)); //提示就是在这里有错误
AThread.Connection.WriteStream(MyStream); //这句也和上面的一样有错误
Result := True;
except
AThread.Connection.Disconnect;
AThread.Terminate;
MyStream.Free;
Result := False;
end;
MyStream.Free;
end;
**********************************************************************************
procedure TForm1.TCPServer1Execute(AThread: TIdPeerThread);
var
MyStream: TMemoryStream;
begin
MyStream:=TMemoryStream.Create;
try
RecCMD:=AThread.Connection.ReadLn();
except
Exit;
end;

case strtoint(RecCMD) of
011:begin
if ReadSeverStream(AThread,TempStr) then
begin
if TempStr='返回数据成功' then
AThread.Connection.WriteLn('CMD012'); //这句话放在这里就好使,可以成功发送出去数据
end;
end;

end;
end;

[解决办法]
楼主的程序本身就有问题
try

except
.......
MyStream.Free;
.......
end;
MyStream.Free;
如果出现异常，那么MyStream就会被再次释放，av错误！


另外不知道MyStream2是哪里来的

AThread.Connection.WriteLn(inttostr(i));
AThread.Connection.WriteStream(MyStream); //
这2句本身没有错，很有可能是Connection已经无效