{
Send click command to server. Use encryption for network safety.
}
procedure Click_Send(data:String);
begin
 DIM_UpdateTag(tagClick,crypt_encode(data,'crw-daq.ru'));
end;
