Помогите пожалуйста

[Nickers]

procedure OnTimer01(Sender: TObject);
 begin
case a of 
 1:begin
   buf:=Action;
   SendToServerEx(myname);
    inc(a);
 SendMsg2( '............... Action ...............' ); 
   end;
 2:begin
   buf:=BypassToServer;
   SendToServerEx(myname);
   inc(a); 
 SendMsg2( '..........BypassToServer..........' );
   end;
 3:begin
   buf:= MultiSell;
   SendToServerEx(myname);
    a:=0; 
 SendMsg2( '.............MultiSell...............' );
   Timer01.enabled:=false;
    start:=true;
    GetItemID ;
   end;
 end;
 // Вот сюда проверку или просто "buf:=" и "SendToServer"...
end;

Попробуй SendToSrever изменить на SendToServerEx(myname); Мб поможет...