Цитата:
	
	
		
			
				
					Сообщение от  alexteam
					 
				 
				в чем заключается некорректность ? 
			
		 | 
	
	
 например при таком тесте он вываливает ошибку
b9 - MyTargetSelected
begin
if FromServer and (pck[1]=#$b9) then
begin
buf:=#$14;
SendToServer;
end;
end.
на двух машинах тестила... ОС w7max_64 и wxpsp3_32
на первой проц i5 на второй athlon 64 x2 4800+
клиент GOD Tauti PTS
пишет ошибку
Access violation at address 132A61E9 in module 'myph.exe'. Read of address 00000000.
лог ассемблера
132A61C9  lea     edx, [ebp-$10]
132A61CC  mov     ecx, [eax]
132A61CE  call    dword ptr [ecx+$08]
132A61D1  lea     eax, [ebp-$10]
132A61D4  call    -$001504FD
132A61D9  mov     edi, eax
132A61DB  lea     eax, [ebp-$14]
132A61DE  lea     edx, [ebx+$50]
132A61E1  call    -$0014DB96
132A61E6  mov     eax, [ebp-$14]
132A61E9  movzx   eax, byte ptr [eax+edi-$01]  ; <-- EXCEPTION
132A61EE  mov     [ebp-$17], al
132A61F1  mov     byte ptr [ebp-$18], $01
или такой тест... просто уходит в бесконечный цикл... 
Var a:Integer;
begin
a:=1;
While a<2 do
begin 
if FromServer and (ReadC(1)=185) then
begin
buf:=#$14;
SendToServer;
a:=2;
end;
end;
end.